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TITi£: AC Print, Octal Number, Sign, Single Column 



LSR # OT 1.1 t 



Classification 
Closed 



No. of Regs. 
in Subroutine 

35 



Tempo Regs, used 
by Subroutine 

It, 2t 



Average Time 
(operations) 

61o5 



Max. Tine 
(operations) 

63 .0 



Preset Parameters 
none 



Program Parameters 

on entering Subroutine 

acs Number to be printed 



Results 

on leaving Subroutine 

ac: 



Description 

When control is transferred to this routine, the number to be 
printed should be in the accumulator. A five digit octal number is printed 
preceded by either a "0" for a positive or a "1" for a negative number* 
After the number is printed a carriage return is executed so that continual 
use of this routine will result in a single column of numbers,, 

Notes : 

1. No. point is printedc 

2. The qp orders are set to sunpress the winch. 



MD, Nov.9,1951 

JVC III, Nov. 13, 1951 
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TITKBs AC Print, Octal lumber, Sign, Single Column 



LSR # OT 1.1 t 



Abstract; This subroutine prints a five digit octal number with a "O n 
or w l tt and no point preceding it and then a carriage 
return. A w 0" designates a positive number and a "l a 
negative number* 

Upon entering the subroutine: 

ACs number to be printed 

Temporary Registers: 

It j register used to store the remainder of the word. 
2ts register used to store the digit counter. 



00 
01 
02 
OS 

23r^»04 
05 
06 

16r-»07 
08 
09 
10 
11 
12 
13 
14 
15 
16 



ta 19r Set return address 

ts It Store value 

cpjSOr Is word negative? 

ca 26r No. Print w tt 

|qp 144 Printing 

cs 25r "|Set digit 

ts 2t Jcounter 

ca It Value in AC 

sr*12 

ad 34rlAdd start of 

td 13r (number table 

si 15 Y st °re 

ts It jremainder 

/•- . r^U^t flexo code for 

(ca ° Vdigit in Ac 

qp 128 Print digit 

ao 2t {Have all digits been 

cp_7r_j printed? No. 



ca 4r ~}Tes« Cause a 

qp 128 J carriage return 

/ 0) "i Go ^ acJc *° main 
— r i Jprogram 

ad 24r Change sign 



Store value 
Print "1" 




Initial value of counter 



Jfumber 
Table 



DL-292 



DIGITAL COMPUTER LABORATORY 
MASSACHUSETTS INSTITUTE OP TECHNOLOGY 
WHIRLWIND SUBROUTINE SPECIFICATION 



TITLE: AC Print and/or Punch, Octal Number 

(Magnitude), Sign, No Carriage Return 



Average 'time 
(operations) 
7 print 



LSR # OT 1.2 t 



Classification 
Closed 



No. of Regs. 
33 



Temp. Regs. 
3 



Max. Time 
(operations) 
7print 



Preset Parameters 

vl po (does not need to be inserted) to print, or p64 to 
punch, or pl28 to punch and print simultaneously 



Program Parameters 

ac: Number to be recorded 



Results 

ac: Number has been recorded and is no longer available, 
C(AC) . pi 



Description 



When control is transferred to this subroutine, 
the number to be printed should be in the accumulator. 
A five digit octal number is printed preceded by either 
a % n for a positive number or a "-" for a negative 
number, i.e. 0. 123*5 -»+ 123*5 and 1 . 123*5 * -65*32 . 



Notes s 



No point Is printed 



1* No point Is printed 

2. No carriage return or space is printed 

3. The jg£ instructions are normally set to print 
and suppress the punch. 



TlTLZi AC PRINT ANT)/ OR PUNCH, OCTAL ftUi&Efc (MfcONITIJEB) , 
SI ON, NO CARRIAGE R^TURfl 



LSR# OT 1,2 t 



Abstract* This subroutine records a fiv* digit octal number with a M + tt 

or a *•-" and no point preceding it. An initial tt +° designates 
a positive number and an initial H -* H a negative number; 
i,e„ 0p123A5-*+X2345 and 1 123A5*>. 65^32 respectively. 

Preset Parameter? 

vis pO to print (does not need to be inserted), or p6^ to punch, or 
pl28 to punch and print simultaneously* 

Upon entering the subroutine! 
AC* number to be recorded 

Temporary Registers: 
ds unused 
Its register used to store the remainder of the word* 
2t* r*v;iet*r used to store the digit counter,, 



Bnter-^OO 
01 
02 
03 

21r»««$04 
05 
06 

16r«— )0 ? 
08 
09 
10 
11 
12 
(10r)l3 
14 
15 
16 



ta 17r Set return address 
ts It Store number 
-PE. i. 8 £ I* number positive? 

06 23P «+■ in AC 

qpl28sl Print sign 

sr *12"jset digit 

ts 2t jCounter 

ca It Value in AC 

sr *12 

ad 22r"|Add start of 

td 13r j number table 

si 15 ~\ Store 

ts It J Remainder 

/rt . *>Put Flexo code for 

** (0) -Tdigit in AC 

qpl28sl Print digit 

Rave all digits 

been printed? 



ao 2t "^F 



(0r)l7 

2r — £18 
19 

20 

a 

22 
23 
2* 
25 
26 
27 
28 
29 
30 
31 
32 



an (0) Return to main program 
cm It Positive magnitude in AC 
ts It Store number 
ca 2<ir^Put Flexo code for 
sp *r |«-» in AC 
p25r Start of number table 
1,300" 3 *+" character 
n - n character 



Number 




Table 
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OTLHs Bfint C(AD) as Octal Number a Sign Digit and 
Complement^ Pointy Single Column Layout* 



LSR QT !<,; 



TAPE T542-3 



Classification 
Closed 



Ho* of Regs* 
in Subroutine 
36 



Tempo Regs* 
used by Sub* 
3 



Average Time 

(operations) 

8 print 



Maxo Tim© 
(operations) 



Preset Parameters 

vl PO (does not need to "be inserted) to prints or P64 to punchy or F128 
to punch and print simultaneously* 

v2 (desired digit length) - 5 



B°ogram Parameters 

on entering Subroutine 
aog number to be recorded 



Besults 

on leaving Subroutine 

ae§ number has been regarded and is no longer available^ C{A0) 



144 sl< 



Description 

IShen control is transferred to this subroutine^ the number in the a&saa»=> 
lator is printed, as a five digit octal number preceded by either a *&* f&r a 
positive or a *ff for the emblement of a negative masher and an oertai pels** 
Affeer the last digit is printed a ©arriage re-feura ia executed m that a single 
eolumn of numbers is tabulated whenever the subroutine is used repeatedly* 



Hotes g 

lo The qp instructions are normally set to print and suppress 
By inserting p64 or p!28 5^ preset parameter vl a one ©an puneh and 
printer or puneh and print simultaneously© 

2«, Itea &t output is 

d 12345 appears as o 12345 and 
lol2345 appears as lol2345o 



the puneh* 
suppress the 



MSD 
1/23/52 



AS 
2/5/5? 



TITLE* HUNT C(AC) AS OCTAL NUMBER, SIGN DIGIT AND 
COMPLEMENT, POINT, SINGLE COLUMN LAYOUT 



LSaf- OT l*3t 
TAPE T 542-3 



Abstract: This subroutine prints & five digit octal number with 

a n n or n l n and a point preceding it and then a carriage 
return. An initial "0" designates a positive number and 
an initial "1" the complement of a negative number « 

Preset Parameters: 
vis pO (does not need to be inserted) to print, or p64 to punch, 

or p!28 to punch and print simultaneously* 
v2: (desired digit length) - 5. 

Upon entering the subroutine: 
AC: number to be recorded 

Temporary registers: 
d: unused 

It: register used to store the remainder of the word* 
2t: register used to store the digit counter* 



00 
01 
02 
03 

24r —^04 
05 
06 
07 

17r — » 08 
09 
10 
11 
12 
13 
(llr)— * 14 
15 
16 
17 



ta 20r Set return address 

ts It Store number 

0£ 21r Is number positive? 
"" 7tT "V" 1 * * Flexo code for *0 n 
oa ilT t-and point in AC 
qp 134sl Prints}, shift 



> 



Set digit counter 



qp 128sl Jrint point 

os 35r 

ts 2t 

oa It Number in ^ 

sr* 12 

"X. Add start of number 
td 14r J table 

si 15 

ts It 

/ rt \ /Put Flexo code for 
oa (0) "LdigitinAC 
|qp 144sl Print digit 

ao 2t 



} 



Store remainder 



ao 2t "j 



Have all digits 
been printed? 



18 
19 
(0r)20 
2r— »21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



ca 15r *") 



J 



Print a carriage 



qp 128el-» return 



ad 2Sr 
ts It 



Return to main program 
Change sign 
Store number 



IM« 



9ft _ rPut flexo code for B l 
ca ** T land point in AC 



0*77777 
p27r 
0.07155 
0*07144 



p39 
P3 
p21 
p33 

P« 

pl5 
p4a2 



Start of number table 
"." and "0" 
"." and "1" 



Number table 



Value for digit 
counter 
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TITLE: 



Print C(AC) as Decimal Fraction, Sign 
and Magnitude, Point, Single Column 
Layout . 



LSR QT 2.2t 
Tape Tob4-3 



Classification 
Closed 



No. of Regs. 
In Subroutine 
38 



Temp. Regs, 
used by Sub. 

« - 2* (3) 



Average Time 
sratloi 
print 



(operations) 
8 print 



Max. Time 
> ratio 
print 



(operations) 
o print 



Preset Parameters 

vl pO (does not need to be Inserted) to print, or p64 to punch, 

or pl28 to punch and print simultaneously 
v2 (Desired digit length) - 5 



Program Parameters 

on entering Subroutine 

ac: x, number to be recorded 



Results 

on leaving Subroutine 

ac: number has been recorded and Is no longer available, 
c(ac) « +0 



Description: 

When control Is transferred to this subroutine the number In 
the accumulator Is printed as a five -digit decimal fraction 
preceded by a sign and decimal point and followed by a carriage 
return. The last printed digit does not contain roundoff of 
additional digits. 
Note: 

1. The qp orders are normally set to print and suppress the 
punch. By Inserting p64 or pl28 In preset parameter vl 
one can punch and suppress the printer or punch and print 
simultaneously • 



HE — I — JWcSHI I S3 - 

1/18/52 1 1/21/51. I 1/23/52 



TITLE s Print C(AO) as Decimal Fraction, 
Sign and Magnitude, Point, Single 
Column Layout* 



LSR# OT 2*2t 
Tape T6S4-3 



Abstractt This subroutine prints a five digit decimal fraction 
preceded by a sign and decimal point and followed by 
a carriage return; i.e. 0.77776 appears as +.99993 
and 1.77776 as -.00006. The last printed digit does 
not contain roundoff of additional digits o 

Preset Parameters t 

vl t pO to print, or p64 to punch, or pl28 to print and 
punch simultaneously. 

v2: (Desired digit length) - 5. 

Upon entering the subroutine: 

ACt x, number to be recorded 

Temporary Registers: 
d: unused 
It: register used to store remainder of the word* 
2t: register used to store the digit counter. 



00 
01 
02 
03 

22r — £ 04 
05 
06 
07 

17r — »08 
09 
10 
11 
12 
13 
14 



ta 20r Set return address 
ts It Store number 



(Or) 20 
2r — » 21 



atei 



0£ 21r Is number positive? 

~\ 7*7 ^( ftJ * *!*» °®de fbr B + w s0i 

ca nor \ awi . ^^ in AC 

qp 134 si Print (±j, shift 

qp 128 si Print decimal point 
cs 37r 
ts 2t 



(llr) 



15 
16 
17 
18 
19 



1 Set digit counter 



cm It 
mh 23r 
ad 24r 
td 14r 
si 15 
ts it 
ca(0) 



} 
J 



|x|in AC 

|xj * 10 x 2 
Add start of 
number table 



-15 



Store remainder 

{Flexo code for 
digit in AC 



qp 128 si Print digit 

ao 2t *} Have all digits 

been printed? 

Print a 

carriage return 



ca 19r 
/q P 144 



j 



2 




Return to main orogram 
rftjfc Flexo code for "-"and 
Idee, point in AC 

Return to print 

10 x 2~ 15 

Start of number table 

♦o character 

-. character 



Humber 
table 



Value for digit counter 
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TITLE: Print Magnitude as Decimal Integer from 
AC, Initial Zero Suppression, No 
Carriage Return 



No of Regs, 
in Subroutine 
45 



Temp. RegSo 

used by Sub, 

4 



Average Time 
(operations) 
5 print 



LSR#fc OT 2o5 t 

Classification 
Closed 



Max. Time 
(operations) 
5 print 



Preset Parameter 

vl pO (does not need to be inserted) to print, or p64 to punch, 
or p!28 to punch and print simultaneously 



Program Parameters 

on entering Subroutine 
AC; integer to be printed 



Results 

on leaving Subroutine 

Number printed out on typewriter 



Description 

This subroutine prints out the magnitude of the number 
contained in the accumulator as a decimal integer. If x-2~ 15 is 
the binary number in the accumulator, the decimal digits of the 
equivalent decimal integers d. are obtained as follows: 

,-15 



where[ J= " integral part of *" 



x 2 



-is 



10' 



etc. 



This form is used so that none of the manipulations will 
yield an overflow. Actually, because the number 2 11 /! 04 is not 



j 



TITLE: Print Magnitude as Decimal Integer from 
AC, Initial Zero Suppression, No 
Carriage Return 



Page 2 



LSR#- OT 2.5 t 



exact in the machine, a binary round-off is added at one 
place in the program to give a correct answer. 

Notes: 

1. Initial zeroes are suppressed,, Zero will be printed as 
five spaces. 

2. The form of output is : 

63 

17352 

1 

(zero) 
27 
3o The program resets automatically. 
4. There is no carriage return* 



TITLE*, Print Magnitude as Decimal Integer from LSR# OT 2.5 t 
AC 9 Initial Zero Suppression, No Carriage 
Return 

Abstract: This subroutine prints out the magnitude of the" 
number contained in the AC as a decimal integer 
If x*2-15 is the binary number in the AC, the 
decimal digits of the equivalent decimal integers 
d^ are obtained as follows: 

where £ J-lnteeral part of" 
etc* 



'/•* 






This form is used so that none of -the manipulations 
will yield an overflow. Actually, because- the 
number 2-"-/10* is not exact in the machine, a binary 
round-off is added at one place in the program to 
give a correct answer. 

Preset Parameters 
vl pO (does not need to be inserted) to print, or p64 to 
punch, or pl28 to punch and print simultaneously 

Temporary Registers 
d unused 

It temporary storage 
2t digit counter 
' 3t suppressor 

Snter4Q0 ta 14? set return address 06 cm 2ir^ in , » 

01 ts 21r store number in AC 07 mh 32rJ 

02 cs 31r ^set digit 27r*08 sr *11 V 2~ n 

03 ts 2t Jcounter 09 ts 21r J and store 

04 oa "|set zero 10 si *!$*) Subtract off 

05 ts 3t J suppressor 11 ts it J Integral part 



n*7" r PT "*? o 
±1. i. Li£j » 



Print Magnitude as Decimal Integer fron LSH,y- OT 2,5 t 

AC, Initial Zero Suppression, No Carriage 

Return 



12 

13 

(Or)U 

13r-£L5 

16 

17 
18 

19 
20 
(lri(2&r)21 
22 
23 
24 
30r— 425 
26 

27 



ao 2t ^Advance 

.°J2 ISS J Counter 

spjO)! Return to 

- * ^ f i J main program 

ca 21r\ Check for 
su 3t >Initial 

. c £ 1% J Zero 

oa 21r^No initial zero; 

[Add in table, 
ad 33* J entry 

ts 21^ Set 

(pC) JPr inter 

qpl28sl Print 

cs ") Eliminate 

>-Zero 
ts 3t J Suppressor 

ao It Round-off 

mh 34r Multiply by * 

sp 8r Recycle 




Counter 
«2 1:L /10 4 
Table entry 
10/16 

Table of 
Decimal 
Flexowriter 
Characters 
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TITfcEg print #(AC) as Decimal Integer, Magnitude onlyj 
Initial Zero Suppression, Print Jlnal Zero, Ho 
Layout 



LSR GT 2o51t 



TAPE T-883 



Classification 



Hb».of Regs* 
in Subroutine 
49 



Temp* Regs© 

used by Sub* 

4 (d - 3t) 



Average Time 
(operations) 
5 print 



Max*, Time 



5 print 



Preset Parameters 
vl pO (need not be inserted) to print, or p64 to punch, or pi 28 to punch 
and print simultaneously 



Program Parameters* 

on entering Subroutine 
Apg Integer to be printed 



Results 

on leaving Subroutine 

Number printed out on typewriter 



1« Initial zeroes are suppressed* Zero will be printed out as four 
spaces and a zero© 

2 The form of output isg 

63 
17352 
1 
•*--».*-»i»0 (zero) 
27 
3d The program resets automatically* 
4© There is no carriage return* 



JWC III 
2/10/52 



2/11/52 



TTTLRs Print C(AC) as Decimal Integer, Magnitude only! 
Inltia.1 Zero Suppression, Print Jlnal Sere, Ho 
Layout 



LSI m 2,51t 
TAPS T«=683 



Abstract j 



This subroutine prints out the magnitude of the number contained in 
the accumulator as a decimal integer* If x*2 ao ^ is the binary number 
in the accumulator, the decimal digits of the equivalent decimal 
integers d. are obtained as follows g 



where (_ J* "integral part of" 




lO 4 ^ 1 




x 2 



=15 



This form is used so that none of the manipulations will yield an 
overflow* Actually, because the number zH/lo^ ■ 1b not exact in 
the machine ^ a binary round -off is added at one place in the 
program to -give a correct answer© 



Temporary Registers 
d - unused 
It - temporary storage 
2t - digit counter 
3t .- suppressor 

Preset Parameters^ 
vl pO (need not be inserted) to prints p64 to punchy or pi 2 8 to 
and punch 



31r 



00 
01 
02 
05 
04 
05 
06 
07 
£ 08 
09 
10 
11 
12 
15 



ta 19r 
ts 25r 
cs 35r 
ts 2t 
ca 
ts St J 
cm 25r 
mh 36r 
sr* 11 
ts 25r 
si* 15 
ts It 
ao 2t 



} 
} 

} 
} 
] 



Set return address 
Set no<> in AC 

Set digit counter 

Set zero suppressor 
«11 



x 2 



10 
-11 



4 



cp 20r 



) 



Subtract off integral 
part 

Advance counter 

Are we at last digit? 



Last digit 

Add in start of table 

S^int 



14 ca 25r 

15 ad 37r 

16 ts 17r 
(I6r) 17 (pO) 1 

18 qp 128sV 

(Or) 19 sp ( ) Return to main program 

13r -4 20 ca 25r -j Not at last digit 

I Check for initial zero*, 

22 _cp ^2£ J 

23 ad 37r -\ 

/ Add in table entry 

24 ts 25r J 

(24r) 25 (pO) Set Winter 

26 qp 128sl Print 

27 cs 1 Eliminate 



2XTU3§ Print C(AC) as Decimal Integer <> Magnitude only^ 
Initial Zero Suppression^ Print Jlnal Zeroj, ITo 
Layout 



LSR OT 2e5] 
TAPS T-883 



34r 



22r 



28 ts 3t j zero suppressor 

29 ao It Round off 

30 wh. 38r 

31 sp 8r 

cy. II . -. .- ■ ■. ..ran 

32 ea 33r ") 

33 qp 136sllprint spaese 

34 sp 29r J 

35 p4 „ 

36 0*15067 Si...''- 
10* 



37|/ca 39r 
38 0*50000 



10 



39 p45 

40 p36 

41 p39 
4a p3 

43 p21 

44 p33 

45 p43 

46 pl5 

47 pl3 

48 p49 



Table of Digits 
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TITLE § Print Out Flexowriter Characters^ Previously 
Stored Three Characters to a Register by 
LSR OT 3<»lat<, Using Program Parameter 



LSR OT 3olt 



TAPE T782=2 



Classification 
Closed 



Ho* of Regs d 
in Subroutine 
38 



Temp© Regs 
used by Subo 
d - 4t (5) 



Average Tim© 

(operations) 
13 + 14n (n^noe-of chars a ) 
(Actually limited hj num= 
ber of printouts) 



Time 
(operations) 
l3+20n (n^noo of 
chars <») (Actually 
limited by no»; M 
printouts) 



Preset Parameters 
vis pO (does not need to be inserted) to print f p64 to punchy and 
pl28 to print and punch simultaneously* 

Program Parameters 

on entering Subroutine 

uls p (address of first register in storage in which characters hare been 
previously stored*) 

Results 

on le airing Subroutine 

Flexowriter characters printed out from storage* 

Description 

This subroutine prints out Flexowriter characters previously stored by 
LSR OT 3*latj three to a register* Subroutine QT 3*lat stores characters 
5-digits long , with a 00000 *tag n character indicating when the final digit 
is to be a and when a 1* (For further description of LSR OT Selat^ see the 
Specification sheet for LSR 0T 3*lat)« This subroutine reverses the process, 
unstasklng and printing out© It will print out characters^ placing a zero in 
the sixth digits until a w tag n character is reached* Then it will place l*s 
in the sixth digit until another w tag B character is reached^ etc* This is the 
exact reverse of LSR OT 3«lat« 

When a negative number is reached (previously stored by the read-in routine) 
the routine stops printing and returns control to the main program* 

Note 

For notes on how many characters may be stored, etc** see the Specification 
Sheet for LSR 0T 3«lat« 



JW5 III 
2/l/52 



AS 
2/5/52 



! t i '■ a*t 



LSR# OT 3olt 
TAFE# T782-2 



Br lilt Out Flexowriter Characters $ 
Previously Stored Three Characters 
to a Register by LSR OT 3olat, Using 
Program Parameter 
Upon entering the subroutine: 
sp ( subroutine) 
p (first address to be printed out of) 

Preset Parameters i 

vlj pO (does not need to be inserted) to print, or p64 to 
punch, 08? plZB to print and punch simultaneously 

Temporary Registers? 

dz temp* character storage 
It j 3 counter 
2ti operational register 
3ti find digit 
4ts digit to be exchanged 



00 
(3r)(0r) 01 
02 
03 
04 
05 
06 
0? 
08 

28r — ^ 09 

10 

(2r) 11 

12 

(4r) 13 

26r — ^ 14 
15 
16 
17 
18 



ta Ir 
oa (0) 
td llr 
ao Ir 
td 13r 
ca 
ts 3t 
oa 36r 
ts 4t 
os 37r 
ts It 
oa (0) 
ts 2t 

oa 2t 
sr* 10 
su 



} 
} 
} 

} 
> 
j 

} 
} 



Plant ul address 
Plant first address 

Set return address 



Set final digit 

Set digit to be 
exchanged to pi 

Set 3-counter 

Piok up register 
to be printed 



35r 



17r 



j3£ 29r — 
ts d 



Are we finished? 

Noo Shift character 
into position 

Is this character 
a zero? 

No 




Shift off left and 
restore reg oontents 

Add in final 
digit 

Print 

Are we finished 
with registers? 

Advance register no 
and recycle 



Restore register 
oontents shifted* 



Exchange final digit 

Baok to check 

finish 
final digit 

character counter 
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TITLE § Read in Standard Flexowriter Characters and Store 
Three Characters to a Register , Using Program 
Parameter* (For Use with LSR OT 3«lt«,) 



LSR OT 3*lat 



TAPE T781«2 



CI as s i fie at i on 
Closed 



No* of RegSe 
in Subroutine 
66 



Temp * Regs.* 
used by Sub* 
d - 6t (7) 



Average Time 
(operations) 
40 * 13% where n is 
no* of characters 
(Present limiting case 
is no<> of read-ins on 
PETR© ) 



Time 
(operations) 

40 + 26n (in the most 
unusual ease) (Resent 

limiting case is no« 
of read-ins on PSTR) 



Brogram Parameters; 

on entering Subroutine 
arg tu (automatic) 

txilfcs p ^address of first register in which characters are to be stored) 



Results- 

on leaving Subroutine 

Jlexowriter characters stored^ five binary digits to the character ^ 
beginning at the register given in ul 5 three characters to the register* All 
registers are positive except the one succeeding the final storage register f 
which is set to nO* 



Description 

This subroutine reads in Flexowriter characters continuously from th© 
photoelectric reader # and stores them in the registers beginning at the address 
stored in uU The standard Flexowriter tape to be called in is typed on a Flex©« 
writer having a binary code the same as the code on the Hexowriter connected .to 
the TShirlwind output* 



A "rfeop" character ^ with a seventh hole^ must be typed at the end of th© 
tape as a tt tag w character so thai ine subroutine may stop the storage process® 

Notes 

lo The Flexowriter characters are shortened to five-digit lengthy and 
stored three to a register* A second w tag w character ^ 00000 5 is used to indi- 
cate whether or not the sixth digit in a character is to be a zero or one "When- 
ever a series of characters switches from final digit tt zero% to final digit B one% 
and vice versa 5 such a tag is inserted* This is not necessarily a waste of storage, 
since all alphabetical characters in the standard Flexowriter code have the sixth 
'hole zero^ and thus there is no need for such a tag in most storage of straight 
! language * Similar ly 5 all numbers and most punctuation marks have the sixth hole 
a n one w j» and so a series of numbers does not require such a *tag n character until 
!an alphabetical character appears* Mixtures of constantly changing letters and 
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TITLS§ Read in Standard FLexowriter Characters and Store LSR OT 3.1at 

Three Characters to a Register 5 Using Program 
Parameter* (For Use with LSR QT 3 a lto) TAIE T781 ° 2 



numbers will^ however , be wasteful of storage? and in such rare eases^ another 
pair of storage and print routines should be used* With ordinary typescript $ 
an estimated 25% of storage can be gained^ however^ over "two-to-a-register" 
methods of storing Flexowriter standard characters « 

2 e The number of registers needed to store a given tape will thus be a 
function of the number of changes from w sixth~hole»zero tt to ^sixth-hole-a-one* 1 * 
In standard English language^ an average formula would seem to be 



n , n „ 23n 
60 



N s J * 70 * "^ ^ * 38n 



Where H is the number of registers needed for storage^ and n the number of char- 
acters 9 n/20 being considered an average number of such changeoverso 

So This subroutine must always be used in conjunction with Print<=Out 
Routine OT 3olt« It may be used in the following manner g Read in subroutine 
OT 3 sit 5 preferably in the upper or lower ends of storage* When control is 
transferred to this subroutine it will automatically read in and store the 
required standard Flexowriter characters in the addresses beginning at the 
address given by program parameter vile After the final stop character is 
reached,, it will not store this^ but instead make the succeeding register a neg- 
ative seroo Control is then automatically transferred to the instruction follow- 
ing the ul register » 

Following this j OT 3olt may be read in by means of the standard read«in 
conversion program^ or elsej, if it has been previously stored^ control may be 
transferred to it at any desired time* For a fuller explanation of how this program 
prints -out^ see the Specification Sheet for OT 3olt© 

4* The character 000001 cannot be read in by this subroutine^ since it 
will be confused by the machine with the 5-digit "tag* character 00000 e However s 
in the 1951 FLexowriter eode^ this is "back-space^ which should not be needed^ 
and in the 1952 Flexowriter codej, this character Is not produced by any key on 
the keyboard o 



JWC III 
I 1/24/52 



AS 
2/5/52 



TITLE: Read in Standard Flexor iter Characters 
and Store Three Characters to a Register 9 
Using Program Parameter » (For Use with 
LSR # OT 3<,lt ) 



LSR# OT S.lat 
TAPE# T781-2 



Upo& eater it g the subroutine $ 
sps subroutine 



first address to be stored 



Temporary registers: 

ds temporary digit store 

Its last 6th digit representation 

2tt character store 

3tj present 6th digit representation 

4tt temporary store 

5ti 3-counter 

6ts temporary store 



ta Ir 




Plant ul address 



33r— X 20 ca 2t 



Plant 1st address where 
machine is to store chars o 



Set return address 

Set last digit rego in 
for zero 

Store 3 counters 



Set zero in temp 

store 
Read in 



Store 6 digits 
in 2t 



Check to see if 
char* is a n stop n 



21 

22 
23 



Si* 14 
sr* 14 
suO 



Store present 6th 
digit representation 



24 ts 3t. 

25 mh It -j Are past and present 

26 jC£ 43£J 6th digits the same? 
47r — £27 ca 2t H Store 5 digits of 

28 >"gp 48r^J character 
29 ^ sp llr Recycle 
19r— > 30 ca 65r " 

31 su 2t Vis chare a" stop"? 



32 /0£- 34a\> 



33 t sp 20r 
32r — £ 34il ca 
35 /sp 48r 
36ioa0 l store ooooo 



No* Back to check digits 

Yeso 

Store 00000 



37 



sp 48r J 
38^ oa 53 r ") Plant last register 



£-:. ... 

39 td 41r_r 



address 



IITL3: Read in Standard FXexowriter Characters 
oad Store Three Characters to a Register 3 
Using Rrogram Parameter o (Fbr Use with 
LSR #0T 3olt*) 



LSR# OT 3olat 
TAPB# T781-2 



40 03 

39r — £ 41 ts (0) 

(04r) — J>42 sp (0) 

26r — £ 43 oa 3t 

44 ts It 

45 oa 



} 



28r 
35r 



> 57r l~4 
,46rJ* 



46 ^ sp 48r 
47 ^sp 27r 



} 
} 



48 ta 63r 



49 sr* 1 

50 ts 6t 

51 oa 6t 

52 ad 4t 
(62r)(02r) 53 ts (0) 

54 81* 5 

55 ts 4t 



Put negative no 
in last reg. 

Baok to main Program 

Switch digit 
representations 

Store 00000 __ 

57r 

\ 

Baok to store 5 digits (43r)63 

Plant link of Internal 
subroutine 



56 


ao 5t 


1 


Are Tie at end 


57 


j3£ j63r 


J 


of register? 


58 


oa 


} 


Yeso Reset tempo 


59 


ts 4t 


store o 


60 


os 64r 




Reset 3-counter 


61 


ts 5t 






62 


ao 53r 




Advance Storage 


)63 


•P<°> 




Exit from internal s c ro 


64 


p2 




3-counter reset 


65 


p51 




"stop" character 



Shift left and store 



DIGI2AL COMPUTES LABORATORY 
MASSACHUSETTS TOSSTUTB OP TECHNOLOGY 
WHIRLWIND SUBH0OTIHB SPECIFICATION 



TITLE* (30jO,0) MRA £rint and/or £taxcny Decimal fraction. 
Sign, Number of Bfcgits Arbitrary, Ko Carriage 
Return, Sign Agreement (Interpreted) 



LSR ot xosaot 



TAPE T799-1 



Classification 
Closed, Interpreted 



Ho. of Begs, 
in Subroutine 
76 



Teinp Regs, 
used by Sub, 
4 



Are rage Tin© 

(operations) 

94+l#ft ^number of digits 
printed = n 



Time 
(operations) 
94 + 27n 



Preset Parameters 

vxs pN, where H is the address in storage of the first register of the 
interpretive subroutine (in title of main program) 

pO (does not need to be inserted) to print, p64 to punch, or pl28 
to print and punch simultaneously 
pn, where n is the number of decimal digits to be printed. 



vis 



v2J 



Description 

This subroutine prints and/or punches the sigi and magnitude of the 
contents of the MRA in the following manner 

-•^ • • •% 

The number, n, of decimal digits to be printed is a preset parameter (v2) The 
digits, d , are obta 

successively by plO. 



digits, d , are obtained by multiplying the magnitude of the contents of the MBA 



This subroutine contains a sign agreement program so that the contents 
of the MHA need not be a number whose major and minor parts are of like sign,. 

The sp instruction transferring control to this subroutine must be an 
interpreted sp (i»e 6 , control must be in the interpretive subroutine). After 
execution of the subroutine control remains in the interpretive subroutine which 
then proceeds to interpret the instruction following the sp instruction in 
storage. 

There is no carriage return. 

This subroutine can be used with any(30,0,0) interpretive subroutine 
The contents of the MEA are left undisturbed during the execution of this 
subroutine. 



FCH 
2/1/52 



MRS 
2/8/52 



TITLE? ISA Print and/or Punch in (30,0,0) Interpretive 

Subroutine without Sign Agreement, Decimal Number, 
Sign, lumber of Bifp-ts Arbitrary, No Carriage 
Return (Interpreted;' 



LSR 0T 103.10t 
TAPE T799-1 



Abstract; This subroutine prints out assign and a decimal point followed 

by the magnitude of the contents of the MHA as a decimal fractions 
The decimal digits are obtained by multiplying the contents of the 
MRA successively by plO. The number of digits to be printed is 
a preset parameter (v2). There is no carriage return* The sub- 
routine is interpreted and can be used with any (30,0,0) inter- 
pretive subroutine* 

Preset Parameters 

vxt pi, where I is the address in storage of the first register of the 

interpretive subroutine (in title of main program) 
vlr pO (does not need to be inserted) to print, or p64 to punch, or 

pl28 to punch and print simultaneously 
v2s pn, where n is the number of decimal digits to be printed 

Temporary Storage 
d unused 

2t y Temporary storage 

3tJ 

4t Digit 'counter 



5 Br 
54r 



9r 

ir 



00 
01 
02 



ta 37r 
sp ax 



, 35r-£ 17 
itesume orainaxy m* operation 18 



^ 



ca 3ax~x 

03 ts 2t I 

04 ca 2ax I 

05 ts It J 

06 mr 2t 

07 _cp 3_8r 

08 ca It 

09 c£ 12r 

10 ca 74r 

11 sp 15r 

12 ca 75r 
13' qp 134sl 

14 qp 128sl. 

15 cs Sir 

16 ts 4t 



Store G(mra) in It and 2t 



Do It and 2t agree in sign? 



l Sense and print algebraic 
sign of C(mra) followed 
by a decimal point* 



Set up digit counter 



19 
20 
21 

23 

24 
25 
26 
27 
28 
29 
30 
31 
(31r) 32 
33 



Multiply C(lt,2t)by plO 



cm It 

mh 62r 

ts 3t 

si 15 

ts It 

cm 2fc 

mh 62r 

ts 2t 

si 15" 

ex 2t 

sa It 

ts It 

ca 3t -> 

ad 63r s Set up entry into table 

td 32r J 

* ' (.Print a single digit 
qp 128sP 



; 



TITLE 8 MRA 



Brint and/or Punch in (30 5 5 0) Interpretive 
Subroutine without Sign Agreement^ Decimal lumber ^ 
Sign 5 Number of Digits Arbitrary H@ Carriage 
Eatam (interpreted) 



LSH OT lOSolOt 
TAPE T799-1 




HaTe enough digits 7 
been printed! 56 



> /Eeturn control to 
J inte subroutine 



Is C(lt) / ? 
Is C(2t) / 0? 

Form 1 - C(2t) 

] is C.(lt) p 0S .* 
| Form C(lt) - 2 
Complement C(2t) 



15 



40r 



Re-enter sign agree « 



55 


ao It 




56 


sp 9r 




57 


cs It 




58 


sp 5r 




59 


eaO 




60 


pi 




61 


nla2 


Y 


62 


plO 




63 


p64r 




64 


p45 





65 


p36 


1 


66 


p39 


2 


67 


P 3 


3 


68 


p21 


4 


69 


p33 


5 


70 


p43 


6 


71 


pi 5 


7 


72 


pl3 


8 


73 


p49 


9 


74 


0*07143 


+< 


75 


! 0e 07107 


""< 



Tabls 



PHOGft/JMD ARITHMETIC 

PA lo2 t (T747-3) is the same as PA 1„1 t except that 
register 26r reads pax2 

PA 2.2 t (T723-1) is the same as PA 2.1 t except that 
register 197r reads pax2. 



Both the above subroutines use the new Flexowriter code 
whereas PA 1.1 t and PA 2.1 t both use the old 
Flexowriter code. 



DIGITAL COMPUTER LABORATORY 



.3SACHUSETTS INSTITUTE OF TECHNOLOGY 
WHIRLWIND SUBROUTINE SPECIFICATION 



,iTLE: Operations on Real (15*15*0) Floating 
Point Double Register Numbers (General 
Subroutine) 



LSR PA l.l t 

Classification 
Interpretive 



No e of Regs, 
in Subroutine 

97 



Temp. Regs, 
used by Sub. 



Average Time 
(operations) 

see description 



Max. Time 
(operations) 

see description 



Preset Parameters (to be typed in the title of the main program) 
v8/ pk: k = separation between two registers of the number 
vx/ pN: N = location of first register of subroutine in storage 



Description; 

By means of this subroutine various logical and arithme- 
tic operations can be carried out upon real numbers represented 
In the (15,15,0) system and stored in two registers, say n and 
n+k, where k is specified by a preset parameter. 

If a is any number such that 
~ 2~ 15 -*| a | ^2 15 , op a = 0, 
then there exists a signed 15 binary digit number x and a signed 
15 binary digit integer y_ such that 



o&l y 



^.1 or x = 0, 

k2 15 . 



and 



x and £ are stored respectively in the two registers n and n+k 

For use by this subroutine . 



Example (a) Let a = -300 (decimal) 

Then a * -100101100 (binary) 
and hence x - 1.011010011111111 

and y - 1001 
Register n contains 1.011010011111111 
and Register n+k contains 0.000000000001001 
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j 



Operations on Real (15*15*0) Floating | LSR PA 1.1 t 
Point Double Register Numbers (General I 
Subroutine) _______--_»_____>». ] 

Example (b) Let a « ^ (decimal) 

Then a = 0.000110011001100110011. . . . . 
and hence x = 0.110011001100110, 

and y = -11 
Register n contains 0.110011001100110 
and Register n+k contains 1.111111111111100 

The programmer need not carry out this conversion process him- 
self, but Instead need only find a five decimal digit X and Y 
such that 

jfl£| X |<L, or X = 



and 



o^l y | ^32,767 

,Y 



a - X*10' 



^=. 10 



-5 



By giving this information to the proper subroutine in the IP 
section of the Library of Subroutines, the remainder of the 
conversion can be done automatically. 

Operations upon numbers in this representation are coded 
using an instruction code similar to but differing somewhat from 
the standard WW code. Any number of these instructions can be 
performed in sequence by placing an sp ax before the first 
instruction of the sequence. The Instructions are then inter* 
preted successively until a change-of-control instruction is 
reached at which point another sequence is performed unless the 
instruction is an sp ax . In the latter case, ordinary WW 
operation is resumed at the register following the sp ax . 

The subroutine contains the analogy of an accumulator 
and a program counter. The " program counter * is in register 
76r and contains the address of the register containing the 
instruction being interpreted. The "multiple register 
accumulator* (mra) is in registers 2r,and 3r and contains the 
result of the last instruction (except ta, cp, and sp) . 
Register 2r contains x and 3r contains £. 



TITLE; Operations on Real (15,15*0) Floating 
Point Double Register Numbers (General 
Subroutine) 



Page 3 
LSR PA 1.1 t 



instruction Function 



ts n Store the number in the mra in registers n and 
n+k . 

ta n Store the address of the register following the 
last sp or cp instruction in the address section 
of register n. 

ex n Exchange the number in the mra with the number 
in registers n and n+k , 

cp n If the number in the mra is negative, proceed 
as in sp, otherwise ignore the instruction. 

sp n If n/a* # interpret next the instruction in 
register n. If n - ax, resume ordinary WW 
operation at the register following the register 
containing the sp ax. 

ca n Clear the mra and then add into the mra the 
number in registers n and n+k. 

cs n Clear the mra and then add the negative of the 
number in registers n and n+k into the mra, 

ad n Add the number in registers n and n+k to the 

number in the mra and leave £he result in the mra 

su n Subtract the number in registers n and n+k from 
the number in the mra and leave tEe result in 
the mra. 

cm n Clear the mra and add the magnitude of the 
number in registers n and n+k into the mra, 

mr n Multiply the number in the mra by the number in 
registers n and n+k and leave the result in the 
mra. 

dv n Divide the number in the mra by the number in 

registers n and n+k and leave the result in the 
mra. 

N„B. In the above the phrase "the number in* should be read to 
mean "the number represented by the contents of*\ 
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Operations on Real (15*13*0) Floating 
Point Double Register Numbers (General 
Subroutine) 




.iw.;es: 

1. Entering and Leaving the Subroutine 

Wherever an sp ax Is encountered, the machine will enter 
the subroutine if it is not already in it, or leave it if it 
is in the subroutine. 

2 * Preset Parameters 

A general preset parameter, vx, is used to specify the 
location in storage of the first register of the subroutine „ 
Another general preset parameter, vo, is used to specify the 
separation k of the two registers containing a number. Both 
of these parameters must be specified in the title of the 
program tape. 

3« Accuracy of Arithmetic Operations 

The operations multiply and divide give a result with at 
least 14 1/2 digit accuracy, i.e. the result is rounded off 
at worst in the 15th place. The relative error in the 
operations add and subtract is at worst 2~ 1S , but it may be 
biased downwards if the magnitude of the sum is sufficiently 
greater than the magnitude of either of the addends. 

4. Alarms 

Arithmetic overflow alarms can occur in registers 19r, 20r, 
47r, 71r, or 72r. In all cases this occurs when the exponent 
£ of the result being calculated during an ad, su, mr, or dv 
instruction lies outside the range ( -2 15 , P*). wHen sucE"~ 
an alarm occurs, the address of the instruction that is being 
interpreted will be in register 76r. Any other alarms in the 
subroutine will be due to excessive addresses or use of an 
instruction not listed above. 



:Ll ; ,s Operations on Real (15il$»0) Floating Point Louble 
Register Kumb .rs (General Subroutine) 

instructio n Code an d Operation Times : 

ts 23 cp 17(+), 27 (-) cs 26 



Lbuff 



lol t 



ta 
ex 



18 
23 



sp 24 
ca 27 



ad 41 
st 43 



cm 


25 


mr 


23 


dv 


26 



i reset Parameters; (to be typed in the title of the main program) 

vS/ pk: k = separation ir. storage of ivo registers of numbers 
vx/ pK: h = address in storage of initial register of subroutine 



00 

01 

02 

03 

S9r~K>4. 

?9r~*05 

£9r-#)6 

S9r-*07 

5r f 89r-^08 

09 

10 

11 

89r~*12 

13 

15 
16 
17 
IF 
19 
20 
21 
33r->22 
23 
24 



] 



ta 7fcr 
sc 76r 
(p0) 
(pO) 
Hca ax 
sp St 
S£L^6r 

ca 86r "cm" Pick up ana 
cs} 

caln-tk 
cmj 



25 
26 



iitore address of 1st 

instruction to be 

interpreted 

x, 7 multiple register S9r-£27 

28 

89r-^29 

(78r)30 

31 

89r-*32 

89r-*33 

24r,89r-*34 

35 



y,\ accumulator 
"ca" 



'CS 

"ad" 



tt 



su 



store 



'mr 



" Form x,»x_ 



ts 93r 

sp 90r 

pl6 

mr 2r 

sp 69r 

ex 2r 

sr 1 

dv 2r 

sf 25r 

ex 3r 

su 95r~) 

&d llr >Form y-. - y- + 16 

sr 72r J 



(p0) di^it storti t e 
pa8 separation parameter 
sp 9Qr "ts" 
lisp 19r 
ca 42r "ta'O store uigits in 
ta (0) > ^-ivigister 
?P 7£r J 
sc 90r "ex" 
sp 22r "cp" 

ao 76r "sp"^ oet A-hegister 
td 42r 



"dv" j Form and 
/Store 

j " 2 



s.f, 



2r ~) 



cs <r j 
_cd. 75rJ 



Is x.<0? 



s p }JjT Go to sp routine 



36 
37 
38 
39 

40 

41 

(3 c r) 42 

43 

7r— *44 
45 

6r— <*46 
47 
48 
49 




3 



J audress 
jet pick-up 
instruct! en's aadress 



joes addr ss of cp 
r sp instruction 
- C£ < (Ci] di fer from ax? 

sp 7tr 

ts 91r [Complement x~ 

cs< 91r J 

ex 95r J Jforin ana store 

su 3r L - y r 

ts 91rJ 
-C£ &L is y 2 - y x > 0; 



Operations en Re.il (15 5 15»C) Floating Point Double 
Register Numbers (General Subroutine) 



LbS# PA 



5^- 
5? 
54 

49r-*55 
56 
57 
58 
59 

58r->60 
61 

(56r)62 
63 
64 
65 
66 
67 
68 

70 

71 

21r~$72 



ad 3r N \ 

ts 3r / Interchange 
ca 2r MaUfV-) and 
ex 95rl U 2 »^ 
ts *r.y 

;m sir l Store | Ij-y-A 
td 



9/ + r->73 
74 

23r,31r^75 

(37r)(0r)lr^3r^6 

77 



91r^S 
62rJ 



su 96r1 Is |y 2 -yj> 15? 

so 75r Addition unnecessary 



ca 96r^ det y- = 15 



J 



ex 95r 

sr (0) Form x 2 

sa 2rl Add 

ts 



y 2" y l 



l) 



ca O'A 

ex 2r j Add overflow into 

sr *15 / 2" 15 times the 

ad 2rJ sum 

sf 25r) Scale factor 



25rl 
3r/ 



78 

79 

80 

81 

82 

83 

84 

85 

(82r)S6 

87 

(79r)88 

(85r)89 

10r,32r->90 

(77r)91 
92 



ex 3r J and store result (9r),(81i)93 

au 9 r r Form y^Y-i ^4 



ex 3r 
ts 



> 



Store result in 



L 

2rJ proper ; egisters 

„, "\ Increase address of pick-up 
ao 76r > .... r h 
J instruction 

ca (0) Pick-up instruction 

ts 91A 

td 30r I store instruction 

td SSr I ana digits 

aa 26r /where 

ts 93r( necessary 

td 86rj 

sr *ll\ Uorm sp. to proper 

ad 28r Lpart of subroutine 

td 89rJ 

ca (oT\ Pick up and 

ts 95rJ store y„ 

ca (C) Pick up x-~ 

(C\)C k° **° a °^ subroutine for 
s ^ * I f particular instruction 
ca 2r 



su 25r Subtract scale factor 



95 
96 



IpO) 
ex 3r 
( P 0) 
sp 7?r 
(p0) 
pl5 




I4.r»dv 
27r-ts 
29r-ta 
32r-ex 
33r-cp 
34r-sp 



lemporary storage 



DIGITAL COMPUTER LABORATORY 
MASSACH05ETTS IHSTrnTTE OP TECHSOLDGT 

Specifications of HHIRLTIHD I LIBRARY SUBRQUTIBE Eumber PA 2 2 

Titleg Bxtra~ppeeision and 31©ating=Point Real ffumber Arithmetic^ using 
2~register 24,6,0 Numbers f Basle Instruction Code with Division, 
IBTBRPHETIVB 

Total lumber of Registers Occupied by the Subroutines 204 storage registers 

Temporary Storage Registers Required by the Subroutines no temporary regs e 

Tims Required to Perform the Subroutines average * 50* URI operations 

maximum • 76* Wwl operations 

per interpreted operations see page 4 for details 
Preset Par ; eters (Values to be indicated in tape title line) 



x 

x2 



pi's 1 ■ address assigned to the initial register of the subroutine 

pks k * separation between registers assigned to each 2-register number 



Description 

This interpretlTe subroutine, when called into action, takes instructions 
(more strictly, program parameters written as instructions) one at a time from 
consecutive storage registers and performs the designated single«address opera°> 
tlons defined by the interpreted-instruction code given on page 4* These opera« 
tions are primarily arithmetical operations performed on real numbers represented 
in the 24,6,0 system* Bach number is stored in some multiple ^register location 
n consisting of the pair of registers n and n+k, where n is the address of the 
given location and k is determined by preset parameter x2« 

The 24,6,0 number system represents any real number U, provided that 

either 1*0 or 2 S-|ufe2 , as a signed 24«binary~digit fraction x and a signed 
6«binary-digit integer y, where x and y are chosen in such a way that either 

X s © or X>|x|^>5 and that |l - x^l" |<2" «, Thus the number pair x.y represents 
U to within! 0- 000006$, equivalent to about 7 significant decimal digits » The 
sign and first 15 digits of x occupy one register while the sign and 6 digits 
of y and the last 9 digits of x occupy the second register of the pair assigned to 
contain the- number Ec Details of this and other number systems are available 
elsewhere «, 

A multiple -register accumulator (MRA ) is used in place of the AC in many 
interpreted operations „ This MRA is not a special register as is the AC but 
rather is a group of 3 ordinary storage registers contained within the inter- 
pretive subroutine, specifically registers 2r,3r, and 4r« Even though only 2 
registers are needed to contain a 24^6, number, 3 registers are used for the 
MRA to avoid the time --consuming operation of packing the last 9 digits of the 
number and the sign and 6 digits of the exponent together into one register 
after each interpreted instruction* A further advantage is gained in that any 
Sequence of arithmetic operations is performed using 30 digits fer the number 
and 15 digits for the exponent. This provides in effect a SQ^IS^O system* The 
24 and 6 limitation is imposed only when necessary, namely o'n ts and ex Opera- 
tions* Thus greater range and greater precision are availableTn sequences ef 
arithmetic operations than the 24,8 g system would normally allow* 
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mg» is 



Tha roundoff ftrror sa ad and sm is mauSm is the 29th digit of isLs fas 
m£m^ it is seale^faetoredU T2i&T is, In adding any two 24^6^0 numbers* v s 2 w 

ts Za2 7 9 assuming l^>jrj^S^ l^jxpoS, w>y, the mm obtained is 

Qt * x^E 7 "^" 29 ) gf) 2 F ^ • iu2 w "*, where 2 it chosen in mash a way that 

The roundoff in mr is mad® in the 28th digit© 

The roundoff in It is made in the -27th digit** 

The roundoff in ^3T and ex (i d ® e in packing the 30*15,0 numbers into 
24^6^0 form) is of course ma4e inline 25th digit* If the exponent y is less 
than -65, the value «03 is substituted for it, without ©hanging x in any way* 

>' iritlsaet ic alarms^ because of the floating point system employed^ and 
because of the extenaea* range allowed within the MSA 9 will normally not occur 
in an interpreted program unless the contents of the MR&* eall it x»2^, prior 
to a ts or ex operation has an exponent y>63 9 in which case an overflow alarm 
always oeeurs at register 203r during'" the interpretation of the ts or ex opera- 
ti©% even if x ffi 0» If during an arithmetic operation the exponent y exeeeds 

the bounds 2 >y>2~ 9 an overflow alarm will occur at register 28r, 85r f 
130r 5 175r or 176r. 

Entry to and exit from the subroutine is accomplished by means of the 
instruction 'spaix» The first "instruction in a program is always performed in 
the THhirlwinef code* When 24>6,0 operations are needed^ control is transferred 
t© the subroutine by spaxg x being the parameter which specifies the location 
of the subroutine* Instructions following the first spax are then performed 
in the interpreted code* Hhen operations on l«register fixed«point words are 
desired^ control is transferred back to the main program by spaXe This spax 
is given- a special interpretation by the subroutine and result's" ' in the instruct 
tions following it being performed in the Whirlwind code© Use of a sequence of 
Whirlwind~eoded instructions between two interpreted instructions does not 
affect the contents of the HBA* but use of any interpreted instruction does 
affect the contents of the JUJe 

1?or num erical inp ut at the present time* all deeimal numbers to be 
converted to '24*&*6 form mnsT be written as a signed decimal fraction which is 
las? tfegg^Xp and jaet Usi' than 0«1 followed by a single signed decimal digit 
jggB.^gfcing the actual position ©f "1&e decimal" potato" Tnat^ls s r'ai&'T&Bafiaar ¥ Iet 

written is the form H * X*10 T f with. 1> |x|>JL and -9^Y ^9 $ and with X hawing 
at most 8 decimal digits* For example^ 

the number 300,, which equals »3 x 10 , is written as **3 | *3s 

tl» number o 01ir 5 whieh equals *31415927 x lO** 1 is written as ♦.31*415927 | -I. 

the number -l/L28, which, equals -*78125 x 10° 2 is written as ~o?8125 | -2 



AlteirBatively^ any ranker may be converts to 24,6*0 binary form by 
head and written as 2 standard single langtfc. octal sssibers^ The procedure for 
eootOTerting lay hand is described 
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Allocation of storage locations to the necessary 2<=-register numbers* 
for the main program and the subroutines).? temporary storage the main 
program^ th© subroutines* and the interpret ire .subroutine PA 2*2 mast at present 
follow a rather inflexible rule because of the input conversion procedures cur- 
rently in use e The seheme to be followed is shown diagrammatic ally below* with 
decimal addresses used throughout© notice that parameter x is at present assigned 
the value 852 in all program*© 



lumbers designated 
by programmer 

address at start of 
program* usually 32 « 



total number of 
locations « k « 
parameter x2* 



address of start of 
temporary storage e 
parameter 0» 



address of start of 
main program and of 
each subroutine and 
address of first in* 
struct ion to be per* 
formed must he 
indicated 



address of start of 
interpretive subrout- 
ine * 852 * parameter x 



program 
2«register 
numbers * 
1st halves 



subroutine 
2»register 



1st halves 



temporary 
storage* 
1st halves 



vj 



program 



numbers^ 
2nd halves 



subroutine 
2**©gister 
numbers* 
2nd halves 






temporary 
storage* 
2nd halves 



main 
program 



subroutines 



interpretive 
subroutine 



Comments 



the assignments to consecutive locations 
of the 2«register constants needed by 
individual subroutines is handled auto- 
matically by the conversion program® 
The number of locations needed is the 
sum of the numbers needed by individual 
subroutines* 



the number of temporary locations needed 
is the maximum of the numbers needed by 
the main program and the subroutines© 
Uote that all locations are ^-register 
locations » Jbr 1-register temporary 
storage* both halves of any 2«register 
location n may be used by referring to 
nt for th© first half and to ntax2 
the second half* 



address of 2nd half of last main program 
smmber must be less than 530» 



f address of last word of last subroutias 
| must be less than 704* 



spaee available for 
OT 102*1 



aubroutiiiifii 
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The interpreted instruction code of this subroutine is given belowe T he 
las tractions "hare the same binary value~as the similar Tlhirlwind instruct ions<» 
Ifenee they are written 8 typed and converted in the same -way as Whirlwind instruc- 
tions and are in fact indistinguishable from them© The term "number in location -rf* 
is used to signify the number represented in 24 f 6 f form by the 32 binary digits 
contained in the pair of registers n and nfk« The term "register m* is used to 
signify the single register m» figures in parentheses give the number of Whirl- 
wind instructions required th interpret the indicated instructions© 

Interpreted 

Ins tract ions Function 

©an (38) Clear the HBA and add into it the number in location n e 

es n (36) Clear the MRA and subtract from it the number in loesMea a* 

em n (37) Clear the MRA and add into it the magnitude of the number in 

location n© 

ad n (72) Add the number in the MRA to the number in location n and leave 

the sum in the MRAo 

su n (76) Subtract from the number in the MRA the number in location n 

and leave the difference in the HRAo 

mr n (49) Multiply the number in the MRA by the number in location n and 

leave the product in the MRA© k 

dv n (74) Divide the number in the MRA by the number in location n and l&mm 

the quotient in the MRA* 

ts n (48) Transfer the number in the MRA to location no 

ex n (48) ^rfth«wgi!i the number in the SEA with the nms£ier& is location n» 

sp m (25) Interpret next the instructioB in register m (unless m « m:^ in 

which case transfer control to the register following the one 
which contains the space so that the instruction following the 
spax is performed using the Whirlwind cbde)o 



cp m (24) If the contents of the MRA is a negative number $ proceed as is 

so n above g if positive 9 ignore this instruction^ 

ta m (22) Transfer the address p + 1 into the right 11 digit positions of 

register m, leaving the left 5 digit positions unchanged! 
p being the address of the most recently interpreted sp or 
effective cp operation* 



:?2;a.acas ca Ssal {24 ;: 6 o 0) Floating Point 
double Register Kiiabers (General Subroutine) 
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•II. miction Code, and Operation Times? 
■is 48 cp 2l(+) f 27(-) 



"villi «c2 

ax 48 



sp 25 
ca 38 



cs 36 
ad 72 
su 76 



Preset Parameters (to be typed in program title) 






cm 
mr 49 
dv 74 



vx2^jpks k*separation in storage of two registers of number 
wc/pNs N*address in storage of initial register of this 
subroutine 



Eater ~*00 
01 
02 
03 
04 
196r— 405 
06 
13r,,196r#>7 
08 

10 
196r=<*ll 

12 
196r~&3 

(I70r)14 

24r~?15 

16 

17 

18 

19 
20 
49r,196r^21 
22 
23 
24 




Set address of 1 
instruction to be 
sterpretea 



Multiple 
register 
accumulator 



st 



cm 1 
Temporary digits 
storage 
sa 3r "^ Add two minor 

ts 3r J products 

|ca "^ Store 

ex Vfcrf overflow 

mh 2r Form major product 



so 158r 
ar 2r 
ex 3r 
mr 198r 
>r 



"mr" Form two 
minor products 



196r-^25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



ex 198r "dv" 

ts 97r 

cs 102r")Form exponent 

ad 54r >of 2 /x^ 

ts 102r J 

cs 97*^ 

Form and 

store 




Form and store 
-2 



si *15 ( 

su 17r /(Use Euclid's 
algorithm) 



ad 50r 

dv 97r 

si *15 

ad 151i0 Add two minor parts 

op 21r J of reciprocal. 



J 



.iii r.uic. xi rs-'^, (£4,6*0) Floating Point 
ruble Register Huubsrs {General Subroutine) 
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50 

, 53 
54 

296r=^55 

{181r)56 
57 

119r=^58 
59 
60 

196r=^6l 
62 

196ar-*63 

64 
196r-^65 
66 
67 
68 

69 

jf, 

71 
72 

74 
75 
76 
77 
78 

79 
80 
81 
82 



pi 

mJDL r '*a ri 

cr 2r ") Complement j:^ 

PP l^tej 

p2 

ca 20Ir n .ta") Store tigits 

td{0) >in indicated 

so, 178r J addrff3 

ao 2r "j Increase x, 
•15 



l 1 



bp l67rj bv 2 
lisp 35r 

SL23L "**? 

p63 

C8 2r "cp")ls x. negative? 

SPJQBK J 

ao 179r "sj/jSet return address 98 

td 201r ]f or &\„ax. 



80r=483 
84 
85 

82r»£86 
87 
88 
89 
90 
91 
92 

8£r«-*93 

94 

Br* 49 5 

96 

(l8Qp)97 



ca V$*~ 

td -V9r 

jU 6r 

SUSScYpast to see ^aether 

spJS&Jinstruetion is sp ax 

9 20000 

ca 3r^ Round off - * 
1 

*1 



99 
100 



}Set picV up order 
for ordinary cp & sp 101 
(95^)102 



el 24 ~\ Add overflow 

ts 2r > into x- &*v3 rrJ 1 

ao 4r J Increase y- 

cm 4r ^j 

su 62rV jyj «63>07 

£P-9Ir^ 

cs 4r ) y^O? 

£P^202H (i,e e y x <-63?) 

cs ***i Set y. . -63 
ts 4r J 1 

ca 97r 1 ts n * k 

ad 197rj or ex n * k 

ts 102r Store ts^eXjCa^cs^or cm mk 

ca 2r 

Perforn 
ts f ex,ca 9 cs f or ca 



x- ' and 
sr 6 > store x,' x 2 



103 
104 
105 
106 
107 
108 

sr *9A Add roundoff carry l66r«$109 

sa 2r 

ts 2r 

ca \ls there an overflow? 

J2P.82r.\ 

su 



ts 3rJ 



into 






Q& 86^ 



/ 



110 
111 
112 
113 
1H 
115 




0;.i,-r,^cu3 oil .:%^1 {24,^0', floating Point 
Si-ubl? Register I^z"bei?s (General Subroutine) 



,u3H 
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Ed 17r \ 

ts 3r J 


7 \ x, H [ «1 


H7 
148 


ca 50r 
ex 102r 


r*" 1 




ca 2r *) il. > 0? 
£P„58rj 


149 


sr *15 


\ Form and ^i:i3 


119 


150 


ad 198r 


(x,*X,'.2" i5 ).2° 1 '|y2" jr l 


120 


su 50r { Form 


(U6r)l51 


(pO) 


I 


121 


ts 2r / 3^ - 2~ 15 


152 


ts 198r 


f 


1HH122 


cs 3r " ; \ Complement x,* 
ts 3r f 


153 


si *15 




123 


154 


ex 3r ^ 


J 


124. 
125 


mr 2r "\ Form Xj„x- (1 
sd I66r J 


155 
156 


sr *15 
ad 2r 


) For* 
Mx,*V.2" 15 >-2 =1 


12r=*126 


cs 198^ Complement 


157 


sr *1 ^ 


J 


127 


ts Wrlx^ x^. 


20r^l58 


ts 2r 


Store x. 


128 


cs 97r J 


159 


si *15 


^ 


9r~^129 


ex 102r^ Form and store 


160 


sa 3r 




130 


su 4r >y 2 - y 1 


161 


ts 3r 


/Add X^ %£ 


131 


ts 97r j 


162 


ca 198r 


[and jj, x,' 


132 


cjPLl^l£ y 2 - y x >o? 


163 


ad 2r 




133 


ad 4s» \ 


53r-#L64 


ts 2r 


J 


134 


ts 4r I Interchange 


165 


mr 3r 


"^ Does sign x« * sign x-*? 


135 


ca 2r 1 (xj, 3^% jj) 


125r~$l66 


5P-1S9E 


; 


136 


ex 198r \ajoA (x^ x^, y 2 ) 


59r^l67 


ca 3r N 


v Scale factor and 


137 


ts 2r 




168 


sr *15 


] store x,, x* 


138 


ca 3r 




169 


ad 2r 


I 


139 


ex 102r 




170 


sf 14r 


f 


MO 


ts 3r / 


171 


ts 2r 




132r~4Hl 


cm 97r^ 


172 


si *15 




142 


su lOr Uy 2 - y x | »29>0? 


173 


ts 3r> 


! 


143 


SPJUSsJ 


174 


cs 14r 


\ Form exponent 


144 


so 178r No need for addition 175 


ad 102r 


( of x,, x • 


l43r~f 145 


ad 5r ^ Store 


176 


ad 4r 


{ 


146 


ts 151r 


sr *1 * |y 9 - y.| 


108r£L77 


ts 4r 








.v , .:'<:. 2-i\e en t:::il (£i,6 f .3? floating Feint 
ills ft s gist*:- ''Criabers iCkmaral Subroutine) 
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17 j ^ -^C^ ~' -11^ 

181 
182 
183 
184 
185 
186 
187 
188 

?JB2r)l89 

190 



lE2?Gftse address 



Pi ok us next instruction 



> 



Stars instruction 
and digits 



e,o 179r 

ts 97r 

td 56r 

id I89r 

ad 197r 

td l^lr^ 

sr *27 ^ Form sp to address 

si *17 I for particular 



{I81r)191 ca<c! 



sr *9 



ex 102r 
ts 198r 
si *15 



ad 60r 
ts 196r 

Mo) 

ts 102r 

' .CYv 



instruction 



J 



192 
193 
194 
195 
(188r)196 (pO) 

197 pex2 

198 (pO) 

70r=4199 ad 

200 
(66r)201 (sp( 



f ■ ju in reg„ 1 
VHold x 2 q in AC, 



:)2 




Go to part of I, s S e for 
particular instruction 
Reparation parameter 
Temporary storage 



els address equal ax? 
etura to register 
ollowing sd ax 



^ Pick up Xgg xJ and y« 90r^202 ca 108rYroduce overflow 
\ Store x, in reg 198 203 ad 108r| alarm 



' vX.r><L jvffv--* a,,^- 



>Xij»— ^* ■ (jk 



^ i&6 



u^ 



13 o 



^5 I 



u. 






if 
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MASSACHUSETTS INSTITUTE OP TECHNOLOGY 
WHIRLWIND SUBROUTINE SPECIFICATION 



TITLE: Operations on Real (30,0,0) Fixed-Point 
Double Register Numbers (Minimal Routine 
with Sign Agreement, giving 28 Binary- 
Digit Accuracy in mr) 
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Classification 
Interpretive 



No, of Regs. 
in Subroutine 

96 



Temp. Regs, 
used by Sub. 



Average Time 
(operations) 

see description 



Max. Time 
(operations) 

see description 



Preset Parameters (to be inserted in main program) 
vo/ pk: k = separation in storage between the two registers of 

a double register number 
vx/ pN: N « address in storage of the first register of the 

interpretive subroutine 



Description 

By means of this subroutine various logical and arithme- 
tic operations can be performed upon real (30,0,0) double- 
register numbers. The numbers are stored in two registers whose 
addresses in storage differ by a preset parameter k, i.e. 
if the major half of a double register number is stored in 
register n* then the minor half is stored in register n+k. 

The operations are written in the usual WW instruction 
code, but the meanings of these operations may differ from the 
usual ones (see description of instruction code). Any number 
of these instructions may be performed in sequence by placing 
an sp ax before the first instruction in the sequence. The 
instructions in the sequence are then interpreted successively 
until a change-of-control instruction is reached at which 
point either another sequence of instructions is Interpreted, or, 
if the change-of-control instruction is an sp ax ordinary WW 
operation is resumed at the register following the instruction 
sp ax „ 

The multiple register accumulator (mra) , in which the 
results of instructions are left, consists of the storage 
registers 2r and 3r„ 



rag! 



ilLLi Operations en Heal (30,0,0) Fixed- Point j LSR PA 3.1 tl 
Double Register Numbers (Minimal Routine | ""I 

with Sign Agreement, giving 28 Binary 
Digit Accuracy in mr) 



Av a No„. 
Instruction Function Operations 

ts n Transfer the contents of mra to registers 22 
n and n+k 

ta n If m is the address of the last sp lnstruc- 18 
tion executed by the subroutine, transfer 
(m+1) to the last ii digits of register n 

ex n Exchange the contents of mra with the 22 
contents of n and n+k 

cp n If the contents of mra is negative, proceed 22 
as in the sp instruction, if the contents 
are positive disregard the instruction 

sp n If sp n » sp ax , take the next instruction 22 
to be interpreted from register n, if 
sp n = sp ax , resume ordinary WW operation 
at the register following the instruction 
sp ax 

ca n Clear mra, put the contents of registers 23 
n and n+k in mra 

cs n Clear mra, put the complement of the 22 
contents of registers n and n+k in mra 

ad n Add the contents of mra to the contents 40 
of registers n and n+k and store the 
result in mra, 

su n Subtract the contents of registers n and 44 
n+k from the contents of mra, store the 
result in mra. 

cm n Clear mra, put the absolute value of the 22 
contents of registers n and n+k in mra 

mr n Multiply the contents of mra by the 34 
contents of registers n and n+k , store the 
result in mra. 
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Double Register Numbers (Minimal Routine 
with Sign Agreement, giving 28 Binary- 
Digit Accuracy in mr) 
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Notes: 

1. Entering and Leaving Subroutine 

Both entering and leaving the subroutine are accomplish- 
ed by the instruction sp ax , where vx, a preset parameter, is 
the address in storage of the first register of the interpret 
tive subroutine. When used to enter the subroutine, the first 
instruction interpreted is that following the instruction 
sp ax in storage. When used to leave the subroutine, ordinary 
WW operation is resumed at the register following the instruc- 
tion sp ax a 

2 Accuracy 

All of the operations executed by the subroutine are 
carried out with a 30 binary digit accuracy except mr, which 
is carried out with 28 binary digit accuracy. 

3. Sign Agreement 

A sign agreement routine has been incorporated into the 
interpretive subroutine. This means that the major and minor 
halves of the number contained in the mra always have the same 
algebraic sign after an instruction has been executed by the 
interpretive subroutine. 

4. Reasons for Machine Stoppage During the Subroutine 
Xa) Arithmetic overflow at 55r - sp n+k 1, i«e. an 

excessive address is being used for storing the minor half of 
a double register constant, 

(b) Arithmetic overflow at 71r or 72r - overflow in 
sum or difference for the interpreted instructions ad or su„ 

(c) Various alarms can result from trying to interpret 
an instruction which was not meant to be interpreted by the 
subroutine. 

5. In any of the operations the address n may be the 
address of the mra. 

6. The mra consists of the registers 2r and 3r„ 

7o If k = 1, the two parts of the double register number 
are stored in consecutive storage registers. 

b 6 No subroutine using preset parameter v8 should be used j 
unless it is later reset. 



"TIEs Op*ra*iicns on Real (30^0^0) Fixed«Point Double 
Register Numbers (Minimal Routine with Sign 
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Abstract: This subroutine is a {30 9 § 0} interpretive subroutine 
which performs the instructions ts^ta^eXjCp^spjCa^cs,, 
ad,su 9 cm and mr 8 The double register constants dealt 
with by the subroutine are in registers whose addresses 
in storage differ by a preset parameter k, i„e the 
C(n,n*k) represents a double register number,, Exit 
and entry to the subroutine are accomplished by the 
instruction sp ax . In leaving the subroutine, if 
C(m) B sp ax, then ordinary W operation is resumed 
at register ml* In the description given below, the 
subroutine is assumed to be executing the instruction 
C(m) at xx n c There are two preset parameter s 

Preset Parameters s (to be inserted in main program) 

vS pks k m the amount by which the halves of a double register 

number are separated in storage 
vx pN: N m the address in storage of the first register of the 

Interpretive subroutine 



nra 




Enter interpretive 
subroutine 



18 
19 
20 
21 
22 
87r m ""°^23 

79r — »25 

26 

64r— 427 

(62r)28 

&4r— -429 

(53r)30 

31 

64r es<s> — ^32 

95r > 64r— ^34- 
35 



ex 2r /nr 

mh 28r 
ts 28r 
si 15 



IP. 



JSeJ 



ao 2r Form C(2r) * 2 5 

sp ffft 

cs 2r Complement C(2r) 

sp Lbr ts 

(p0) 

ca 43r ta 

td (0) Transfer m*l to digit 

sp 50r section of register n 

sp 44F ®x 

sp 93r op 

ao 51r sp 

td 43r Store sp(m^l) in 43r 



0:; actions r- Rs;xl (3C y !; Uj ?£xefi=Pcint Double 
Register Itebers (llinims.l Routine with Sign 
Agreement giving 28 Binary Digit Accuracy in mr) 






27r s 32j 



40r 8 423 



ca 30r 1 Store ca n in 51r 
td 51rJ 
su llr J 
„ c £ A^T. / Is xx n »■ sp ax? 

ad 9r 

-co J£3£/ 

so (0) Leave interpretive 
ca 3r^ 

(pO) Perform 
ts 3r ts,ex,ca f cs f cm 
ca 2r > 

(pO) [ 
ts2^/ 

ao 51r 

ca (0) 

td 6lr^ Store n 

td 30rJ 

ts 48r Store xx n 

ad lOr 

ts 45r 

td 63r 



22# 



Store xx (n+k) 
Store (n*k) 

sr *11 j Set up entry 

ad £r > into table 

td 6^rJ 

ca (0) ^ Store C(n) in 28r 

ts 28rJ 

ca (0) Put C(n+k) in AC 

sd (0) Enter table 

ts A5r\ 



66 
67 
68 
■469 
70 
71 
72 
sub, 73 
92r— ¥?U 
75 
76 
77 
78 

79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 

82r— $90 
91 
92 

33r~ *93 
94 
95 



cs 28r^ 
ts 28r > su 
cs 45r/ 
sa 3r"\ 
ts 3r J 

ca 2r >ad,su 9 mr 
ad 28r / 
ts 2r/ 

cs 2r "\ Do C(2r) and C(3r) 
disagree in sign? 



Is C(2r) £ 0? 



I» C(3r) j 0? 



Form 1 -|c(3r)| 



^1 Is C(2r) positive? 

su 9r "^ Form C(2r) - 2*" 15 

ts 2r J 

cs 3r ~\ Complement C(3r) 

ts 3r J 

sp Ibr Re-enter sign agreement 

cs 2r ^cp 

.CE^pc^fls C(2r) negative? 

sp 31t Perform sp order e 
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TITLEg Operations on Real (30,0,0) Fixed-Point Double- 
Register Numbers (General Routine with Sign 
Agreement, No Division) (interpretive) 
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tape rra-2 



;xon 

Interpretive 



loo of Regs© 
in Subroutine 
123 



Temp a Regs* used 
by Subroutine 



Average Time 
(operations) 
see description 



Max Time 
(operations) 
see description 



Pr??3t Parameters 
fs2/ pkg k = separation in storage between the two registers of a double 
register number 
fay pN& N = address in storage of the first register of the interpretive 
subroutine 

Description 

By means of this subroutine various logical and arithmetic operations 
can be performed upon real (30,0^0) double-register numbers* The numbers are 
stored in two registers whose addresses in storage differ by a preset parameter 
k 3 i»e* if the major half of a double register number is stored in register n $ 
then the minor half is stored in register n»k e °° 



The operations are written in the usual WW instruction code* 
meanings of these operations may differ from the usual ones (see description of 
instruction code)* Any number of these instructions may be performed in sequence 
by placing an sp ax before the first instruction in the sequence* The instruct 
tions in the sequence are then interpreted successively until a change-© f -control 
instruction is reached at which point either another sequence of instructions is 
interpreted^ or, if the ehange-of -control instruction is an sp ax ordinary WW 
operation is resumed at the register following the instruction sp ai: .,, 

The multiple register accumulator (mra), in which the results of instruc- 
tions are left , consists of the storage registers 2r and 3r« 



Jm» So, 



Instr uction 
ts n 
ta n 



ex n 



5p;&fc 



Function 

Transfer the contents of mra to registers n and n+k 

If m is the address of the last sp instruction executed 
by the subroutine, transfer (m+l) to the last 11 digits 
of register n 

Exchange tls& <OTrfeeafc8 v¥ imm 4$$& tigs £@8§&£fcB-. si* .n and 
n+k 

sp instruction, if the contents are positive disregard 
the instruction 



22 

18 

22 

is 




TITLEs Operation* on Seal (SO^O) Fixed-Point Double- LSR PA 3«,5t 

Register Numbers (General Routine with Sign 
Agreement ^ Uo Division) (interpretive) 

Instruction Function 

sp a If sp a « s ]p axg> take the next instruction to be inter- 

preted from, register % if spn s sp ax g resume ordinary 
W operation at the register f©ll©wljig**tbe instrmetion 
sp ax 

©a n Clear mra-j put the contents of registers n and n+k in mra 23 

©s m Clear mra^ pat the complement of the contents of registers 22 

n and n+k in mra 

ad n Add the contents of mra to the contests of registers n and 40 

n*k and store the result in mra "^ 

su n Subtract the mmA&m&a of registers n and age i^sm the con~ 44 

tents of mr% store the re®ai»% ia.-ac& 

em m Clear mr% put the absolute mine of the ©oateots @f 22 

registers a and g»k in mrm 

nr n Multiply the contents of mra by the contents of registers S4- 

a and n&+, .-stasre the result in src&o 

sl(80O*n) Multiply C(mra) by 2 n and leave the result in the mra 29 

sr{80O*n) Multiply C(ua=a) by Z^ .and stare tl» first 30 digits of 2S 

the result without roundtsff in the mra« 

Notes 

l e Entering and Leaving Subroutine 

Boin entering and leaving the subroutine are accomplished by the 
instruction sp^ax^ where vx, a preset parameter ,. is the address in storage of 
the first register of the interpretive subroutine* IShen used to enter the sub- 
routine* the first instruction interpreted is that following the instruction 
«p ax in storage* !&tta wsod to leave the subroutine^ ordinary W operation is 
resumed at the register following the instruction sp ax« 



2* Accuracy 

All of the operations executed by the subroutine are carried 
out with 30 binary digit accuracy^ affected only by roundoff on the thirty- 
first digits 

3* Sign Agreement 

A sign agreement routine has besn incorporated into the inter- 
pretive subroutine « This means that the major and minor halves of the number 
©ontained in the mra always have the same algebrai® sign afteer an instruetie® 
has been executed by the interpretive subroutineo 

4*> Reasons fog machine stoppage during the subr onfcliagi 
(a.) Arithmetic overflow at 56r ~ sp n+k» an eaexa&sm&w* 
is being ased for storing the mijaar half of a double regtsiw ecnstsBfeo 



J 



r~~ 



TITLBs 



Operations on Seal (SO^O^Q) JlxedMPoint Double- 
Register Humbers (General Houtine with Sign 
Agreement ^ Ko Division) (interpretive) 



Page 3 



LSE PA 3o5t 



(b) Arithmetic overflow at 72r or 73r - overflow in sum or 
difference for the interpreted instructions ad or su© 

(©) Various alaras can result from trying to interpret an 
instruction which was not meant to fee interpreted l)y the subroutine© 

5« The mra consists of registers 2ax (at 2r) and Sax (at 3r] 



12/5/51 



AS 
2/5/52 



Operates on Real (30,0,0) Fixed«Point 
Doublo-Register Ihxaibers (General Routins 
with Sign Agr@©EK&nt, No Division) 
(Interpretive) 



LSR# ?A So3t 
TAPE# T721-2 



Abstract i This subroutine is a (30,0,0) interpretive subroutine 
which performs the instructions ts, ta, ex, cp, ca, cs, 
ad, su, om, mr, si, and sr« The double register con- 
stants dealt with by the subroutine are in registers 
whose addresses in storage differ by a preset parameter 
k, ioeo the C(n,n+k) represents a double register number e 
Exit and entry to the subroutine are accomplished by the 
instruction spax© m leaving the subroutine, if C(m) 
C(m) « sp ax, then ordinary W operation is resumed 
at register m+l« In the description given below, the 
subroutine is assumed to be executing the instruction 
C(m) * xx n« There are two preset parameters* 

Preset Parameters i (to be inserted in main program) 
vx2s pk* k s the amount by which the halves of a double 

register number are separated in storage 
vxi pit I e the address in storage of the first register 
of the interpretive subroutine 



00 ta Sir CSet next instruct 

«-ion address 

01 sp 51r 



" (25r)— ^ 02 (pO) 

05 (pO) 

65r — » 04 jsr 19r 

65r ~~^ 05 sp 44r 

65r «— ^ 06 sp 70r 

S5r — £ 07 sp 66r 

85r — £ 08 sp 44r 

33r — £ 09 os 2r 

10 J5£ 50r j> 

11 sp 34r 
65r — ^12 ts 19r 

13 mr 3r 

14 sp 94r 
65r — ^ 16 |oa ax 
65r — — ^*L6 ca 3r 

17 sr* 15 

18 ad 2r 
103r)(55r)(12r)-*19 (pO) 



x £ 

*i 

ca 

08 

ad 
su 

cm 

}■• 



} 



mra 



20 ts 2r 

21 si* 15 

22 Bp 92r -> 
ggr — *, 23 ao 2r 

24 sp 50r 

80r— * 25 os 2r 
sp 49r 



C(2r) negative? 



65r > 

(68r)(63r) 

65 r ""^ 



26 
27 
28 
29 



sp 44r 

(pO) 
oa 43r 



Form C(2r)+2"* 15 

Complement C(2r) 

ts 

C(n) « x g 

ta 



(53r) 



30 td(0) /Transfer m*l to digit 
v ' ^section of register D 



Perform sp instruc- 



tion 



mr 



65r —"^ 

65av— > 

llr,65r-^ 



31 
32 
33 



sp 50r 
sp 44r 
sp 9r 



ex 

op 
sp 



si (vx) 
sr 



si, sr . 
C(n+k)=Xg 



34 ao Sir 

35 td 43r ^^ r " p(m * 1) 

36 oa 62r 

37 td 51r 

38 su lor 

39 _c£ 41r j[ 



Is xxn - spax 



TlTLSs Operations on Real (30,0,0) Fixed-Point LSR# PA 3o5t 
Double -Register Numbers (General Routin© TAPE# T721-2 
with Sign Agreement, No Division) (interpretive) 



40 

59r — ^ 41 

42 

(35r) 43 

Br ' 8r * 44 

27r s S2r - ** 

(97r)(66r)(57r) 45 
(IWr) 46 

47 

(54r) 48 

26r — ^ 49 

lr,40r,42r,(Qr) „ 
(34r)(37r)(5(^f|* 



sp Sir 
ad 122r 
j9£ 51r _ 
sp 



J 



Leave interpretive 
subroutirs 




Perform ts, ex, ca, 
os, and cm. 



Piok up next instruc- 
tion to be interpreted 

Store n 



Store xxn 



Store xx(n+k) 
Store (n+k) 

Set up entry into 
table 

Store C(n)in 28r 



ad, su, mr 



Do C(2r)andC(3r) 
agree in sign 




8Sr 
22r 



89 
90 

*91 

-X92 

93 



ts 3r 

oa ^ T Is C(2r) positive? 
j3£ 23r S 

8U 122 Form C(2r) - 2 



-15 



ts 2r 
cs 3r 
ts 3r 
sp 75r 



} 



Complement C(3r) 



put C(n+k/« 
enter table 



su 



Xg 1& AC 14*^*94 
95 
96 
97 
98 
99 



Re-enter sign agreement 

8r 2 \ Form i £ x* and store 
ex 19r J * L in 19r 

mh 2r -j Form x_ x', store major 
ts 45r J haxX in 45r 



J 



■: n K-L3t' Operations on Heal (S0 3 5 0) Fixed-Point LSR# PA 3 5t 

Doublo-Register numbers (General Routine TAPE # T721-2 

with Sign Agreement, No Di vis ion) (Interpretive) 



100 ad 19r ^ oumulffbo roiJ nd~off 

101 ex 2r J aad store in £r 

102 mh 28r "\ 

103 ts 19r / _ . . 115 ex 28r^ 

( Form x_x_, store major I 

104 si* 15 f- , A , * . , H 6 8a 45r / 

half in 19r and minor Md > ^ th0 

105 ex 28r J half in 28r H7 ts 2r I ** *1 2 w ™ 




, „ ~ „ * , ^ mo I- « /major half of x,x* 

rah 3r ""} Form xL x and store 118 joaO I u "1 2 

ts 3r J major half in 3r H9 « 2r_J 

i Porm T |x 1 x — 6— — 

J 4 L 1 2J 121 ^teg 



109 sr 2 

110 ad 2r ^ - . . , . Ajet 122 

i p^^ total round-off 

111 sr 13 / and add into major 

I half of ^ 



p0ax2 vl 
Pi 
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TIT£gg Oper scions on Real (30^0^0) fixed-Point Double 
Register Numbers (Shorty fast routine without 
sign agreement giving 28 binary digit accuracy 
inir) Interpret ive 



LSR PA 3.10t 



TAPE T798 



Classification 
Interpretive 



i© @f Regs* Tempo Regs* Average Tfjas 

used "by Sub* (operations) (operations) 

rs (To be inserted in title of main program) 
■wx- plj where I is the address in storage of the first register of the 
interpretive subroutine 
itt Pfcj where K is the separation in storage between the two registers 
of a double register number 



Description 

By means of this subroutine various logical and arithmetic operations 
©an be performed upon real (30,0^0) double -register numbers © The numbers are 
stored in two registers whose addresses in storage differ by a preset parameter 
k>. ie©* if the major half of a double register number is stored in register n $ 
then the minor half is stored in register n»k» ~" 

The operations are written in the usual HIT instruction codej but the 
meanings of these operations may differ from the usual ones (see description 
of instruction code)* Any number of these instructions may be performed in 
sequence by placing an sp ax before the first instruction in the sequence* The 
instructions in the sequence are then interpreted successively until a change - 
of-feontrol instruction is reached at which point either another sequence of 
instructions is interpreted^ or,, if the change-of -control instruction is an 
spjx ordinary W8J operation is resumed at the register following the instruc- 
tion sgj^e 

Ti»*-mui*i«tple register accumulator (]MR&)^ in which the results of in- 
structions are left^ consists of the storage registers 2r and 3r„ 

r 
This interpretive subroutine does not contain a" sign agreement routine 
and hence the contents of the MRA may have different signs ^ e 6 go in the sub- 

tX0IL 10'2~ 15 ♦ 5'2~ 30 - [>2- 15 + 10.2" 50 !!- 5<2~ 15 ♦ (-10)- 2" 50 

the result has major and minor halves of unlilce sign*. This fact must be 
remembered by the programmer if computations are carried on outside of the 
subroutine or if other library subroutines are interpreted by the interpretive 
subroutine* In the latter case* a library subroutine should not be used unless 
it is explicitly stated in its specification sheet that it is permissable to 
use it with interpretive subroutines not containing sign agreement „ 



TITLEg Operations on Real (30,0,0) Fixed-Point Double LSR PA 3 o 10t 
Register lumbers (Shorty fast routine without TAPE T798 
sign agreement giving 28 binary digit accuracy 
in mr) Interpretive 



Avo Hoc 
Instruction Function Operations 

ts Transfer the contents of MRA to registers 17 

n and n+k 

ta If m is the address of the last sp instruction IS 
executed by the subroutine 5 transfer (m+1) to 
the last 11 digits of register n 

ex Exchange the contents of HRA with the contents 17 
of n and n+k 



cp 


If the contents of MRA is negative 9 proceed as 
in the sp instruction^ if the contents are 
positive disregard the instruction 


(+)14 
(-)25 


sp 


If sp n / sp qk $ take the next instruction to 
be interpreted from register n $ if sp n m sp ax 5 
resume ordinary If? operation at the register 
following the instruction sp ax 


18 


ca 


Clear MRA* put the contents of registers n and 
n+k in fRk ~~ 


17 


cs 


Clear MRA$ put the complement of the contents of 
registers n and h+k in MRA 


17 


ad 


Add the contents of HRA to the contents of registers 18 
n and n+k 


BU 


Subtract the contents of registers n and n+k from 
the contents of MRA "" 


17 


mr 


Multiply the contents of MRA "by the contents of 
registers n and n+k* store the result in IRA 


33 



TITLES Operations on Heal (30,0,0) fixed-Point Double LSE PA 3„10t 
Register Humbers ( Short 9 fast routine without TAPE T798 
sign agreement giving 28 "binary digit accuracy 
in mr) Interpretive 



1* Entering and Leaving Subroutine 

Both entering and leaving the subroutine are accomplished by the in=* 
struct ion sp ax» «here vx 9 a preset parameter is the address in storage of the 
first register of the interpretive subroutine When used to enter the subroutines, 
the first instruction interpreted is that following the instruction sp ax in 
storage* When used to leave the &i&8ft5ntin©^ ordinary WW operation is resumed at 
register following the iJas traction sp ax 



2« Accuracy 

All of the operations executed by the subroutine are carried out with 
a 30 binary digit accuracy except mr s which is carried out with 28 binary digit 
accuracy » 

3e Sign Agreement 

PA S.lOt does not contain sign agreement. Hence the major and minor 
halves of a number need not have the same sign* 

4» Reasons for Machine Stoppage During the Subroutine 

(a) Arithmetic overflow at 56r — an excessive address is being used 
for storing the minor half of a double register nurabere 

(b) Arithmetic overflow ; at 49r or 5©f*^-overf low in sum or difference 
for the interpreted instruction^ ad oV'titi* 

(c) Tarioxis alarms can result from trying to interpret an instruction 
which was not meant to be interpreted by the subroutine© 

5* The MEA consists of registers 2ax(2r) and 3ax(3r)e 

FpH HAS 
Z/S/SZ 2/8/52 



?ITLEg Operations on Real (30^,0^0) Jixed~?oint Double 
Hegister lumbers (Shorty fast routine without 
sign agreement giving 28 binary digit accuracy 
iniiff) Interpretive 



LSS ?A S.lOfe 
TAPE T-798 



Abstracts This subroutine is a (30,0^0) interpretive subroutine which 
performs the instructions ts, ta, ex, op 5 sp^ ca, eg, ad^ su^, 
cm and mr e The double register constants dealt with by the 
subroutine are in registers whose addresses in storage differ 
by a preset parameter k$ i«e & the 0(n^ n+k) represents a double 
register number* Exit-amd entry to the subroutine are aecom-= 
plisbed by the instruction sp ax< > In leaving the subroutine^ 
if C(m) ffl sp ax s then ordinary TO" operation is resumed at 
register m+le In the description given below f the subroutine 
is assumed to be executing the instruction 0(m) » xx'n* There 
are two preset parameters* The subroutine does not contain sign 
agreement© Hence the major and minor halves of a double register 
number can have unlike signs* 

R°eset Parameters 
vx pin* where Iff is the address in storage of the first register of the 
interpretive subroutine 
vx2 pK$ where E is the separation in storage between the two registers 
of a double register number 



00 

01 

(76r)02 

(74r)03 

59r — => 04 

59r — > 05 

59r —4 06 

6r, 59r --» 07 

08 

77r-4(8^5^09 

10 

11 



ta 53r-*Bnter interpretive 
sp 55r J Routine 



(po) 
(po) 

sp 44r 



-£E 



44r 



g P 7r 



mra 

ca 

cs 
ad 



64r 



ad 26r ~|Su 

^ Form ca(a+k) or cs 
^ syrj (n+k)& store in 9r 

(p0) IjPormx^ + x^ and 

sa 3rj tstore in 3r(ad^ su) 

np 48r 



F ° m V2 + V2 X 



50r 



59r 



1 
x* x. 



(nr) 



39r 



33r 



12 

13 
14 
15 
16 
17 
18 
19 



J59r 



20 


su / 






21 


jsp 60r J 






22 
23 


cs .* .71. 

C£ 52 r J 


C(2r) 


or 0(3r) pos«? 


24 


sp 34r Perform 


interpreted sp 


25 


pa x2 






26 


l*67777ax2 






27 


sp 44r ts 






28 


sp ax 






29 
30 


td 65r ta 
ca 42r 




Transfer n to digit 
section of reg« 6Sr 


31 


sp 65r 







32 



td 68r^ mr 

\ Set address at 68r tol 
ts 72r) n & store mrn in 72rj59rg^-~> 33 



ad 25r 



} 



Store mr(n+k) in 9r 



ts 9r 

ca 51r^ gtore tg2y in 5Qr 

ts 50rJ 

sp 67r 



cm 2r lis C(2r) f 



24r -» 34 

59r 3S 
36 
37 
38 
39 



sp 44r ex 

sp 19r cp 

ao 53r sp 

td 42r Store sp (m+l) in 42i- 

ca 50r 

td 53r, 

su 28r 

ts 47r 



Store ca n in 53r 



I- 



xxn m sp axf 



!ITLBg Operations on Real (30^0^0) Fixed-Point Double 
Register lumbers (Shorty fast routine ■without 
sign agreement giving 28 binary digit accuracy 
in mr) Interpretive 



LSR PA 3«10t 
T&FB T798 



35r 



40 cm 47r 

41 su 

42 „ £PL°i . 

43 sp 53r 



uifo «j<£r 



44 ad 25r J gtore ^^y in 47r 

45 ts 47r S 



ca 3r 



;6^)47 (pO) 



(J 

(46r) X(J ™ ; 

llr -o«-«^ 48 ts 3r 

49 ca 2r 

(I7r)(54r)50 (pO) 

51 ts 2r 

23r$66p— » 52 ao 53r 
34r)( 3 rr)(^ 5s ( > 
lr^43r ~—=^ v ' 

[52r) 54 ts 50r 

55 sr* 11 

56 ad 33r 

57 ts 59r 

58 ca 50r 



Perform ta^ex-jCa^cs^ 
ad ? su^mr 



Pick up instruction 
to be interpreted 

Store xxn 



Set up entry into 
table 

Pick up xxn 



(29r) 
Sir 



18r 



(57r) 59 
21r -} 60 
61 
62 
63 
' 64 
65 
66 
67 
68 
69 
70 
71 

(I3r) 72 
73 
74 
75 
76 
77 



(pO) Enter table 



cm 3r ~> 

su (Is C(3r) f 

cp 34rJ 

es 3r 

sp 23r 



^ ' (Transfer m+1 to digit section 
sp 52rJ of register n 



ca 2r 

mh(0)n 

ts 47r Store /x^x„|in 47r 

si 15W__ f__ _ll 



Store 
ex 3rJ 

(pO) Form 

sa 3r ~i Form 



Form x.x ? 



in 3r 



ts 3r 



J 



"11 . 

X=t X.f\ j 

r- — 11 j. 1 



and store in 3r 



ca 47r")_. 

(Store 

ex 2r J , 
sp 9r 



h x 2P 



in 47r 



DIGITAL COMPUTER LABORATORY 
MASSACHUSETTS. INSTITUTE OF TECHNOLOaY 
WHIRLWIND SUBROUTINE SPECIFICATION 



TITLE? Operations on real (15^0 ,»c) fixed-point 
single register numbers (X^erpretive) 



No of RegSo 
in Subroutine 

^7 



Temp Regs 
used by Sub 
None 



Average. Time 
(operations) 



LSR PA 8 lt 



TAPE TT24°£ 



Classification 
Interpret lye 



Max„ Time 
(operations) 



See description of order code 



Preset larameters (£@ be typed in, the title of the Main Program) 
vxs pits N - address in storage of initial register of subr@ut3toe 
vx3rp£s c - the number of binary digits to the right of the 

binary point in the (I5*0,e) numbers 
vxlspMs M = address in storage of the initial register of the 

storage block for (I5*0,c) numbers 



Description 

By means of this subroutine various logical and arithmetic opera- 
tions can be performed on real numbers expressed In the (15^Q^c) 

system, 0^c<15 o The (I5*0^c) constants are stored in the fol- 
lowing manner Let e be fixed and let a be a positive number 
such that / x 

2" (l5 - c '<a£2 c+1 - 1 
Then a can be written as the sum of a c digit binary integer and 
a binary fraction . The binary fraction is then rounded off to 
15 - c digits and the result stored with the sign digit zero Q 
If a<Gj repeat this procedure for - a, complement this number 
and store the result „ A 

For example * let c = 3 and a 



- 3^ 



Then 



and 



- a 



-3 4- 
=b,£>ll 



1 
T 



1 
3 



3 •+ 
We now complement 



1 

I 



010 

:ts 

on 010101010101 

;he following number 

.01101010101010101 
and store the following result 

1 o 10010101010101010 
The programmer need not carry out this conversion process himself 
but instead need only write the fixed point decimal number By 
giving this information to the proper subroutine in the IP 
section of the library the conversion can be done automatically 
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TITLE g Operations on real (15^0 5 c) fixed-point 
single register numbers (interpretive) 



LSR FA 8elt 



TAPE T724«2 



Description (continued) 

Operations upon numbers are -written in the usual Whirlwind instruction cede^ 
but the meaning of these operations may difftear frem the usual ene&a j^ number m£ 
these operations may be performed in sequenee by plaeing an gpax before the first 
instruction in the sequence* The instructions is the sequwne© aye then am-feerpreted 
successively until a change«of«control instruction is reached (see deaeripftion of 
order eo& ) at which point either another sequence of instruction* i« i&terpye^edj, 
or> if the change of control instruetion is an spax ord&aary Hhirlniad operation i« 
resumed at the register following the instruetion spax«» 

The multiple register ae&umula*feor 3 in whieh the results of interpreted instruct 
tions are leffe s consists of the storage register 2mz^ 




Bmstion __ Operations 

Transfer £(mra) to register n* 14 

Transfer the last 11 digits from the mra to the last 11 

digits of register n 14 

ta n If m is the address of the last sp instruetion er effective 
cp instruction executed by the subroutine^ transfer (m*l) 
into the last 11 digits of register n 13 

ex n Exchange Q(mra) with @(n) 14 

cp.n If 0(mra) is negative^, proceed as in the sp instruction^ 

if G(wra) is positive f disregard the instruction 18 

sp n If spn f spaxj take the next instruction to be interpreted 

from register n 9 if spn « spax f resume ordinary Whirlwind 
operation at the register following the instruction spax 21 

Clear mra s put e(n) in the mra 14 

Clear mra^ put the complement of g(n) in the mra 14 

Add e(mra) to 4S(n) and store the result in the mra 14 

Subtract 'C(n) fir om &(mra) and store the result in the mra 14 

Clear the mra s and put the positive magnitude of @(n) in the 

mra 14 

Multiply C ara) by 0{n)^ store the result in the mra 14 



ca 


n 


©s 


n 


ad 


XL 


su 


n 


en.. 


XL 


mr 


n 


si 


n 


sr 


n 



,n 



Multiply C mra) by 2 and store the result in the mra L4 



-n 



Multiply C [mra) by 2 and store the result in the urea 14 



DIGITAL COMPUTER LABORATORY 

MASSACHUSETTS ISSTITUTE OF TECHNOLOGY 

WHIELTfllD SUBEQOTIBE SFECmeATIOH 



TITLEs Operations on real (15tG»e) fixed^point 
tingle register numbers (interpretive) 



LSR PA 8 .It 



TAPE T724-2 



Botes 2 

1* Entering and leaving subroutine 

Both entering and leaving the subroutine are accomplished "by the instruction 
sp ax « where vx^ a preset parameter , is the address in storage of the first 
register of the interpretive subroutine* Tfhen used to enter the subroutine* 
the first instruction interpreted is that following the instruction sp ax 
in storage * When used to leave the subroutine, ordinary ' W operation is 
resumed at the register following the instruction sp ax t , 

2« Accuracy 

All of the operations executed by the subroutine are carried out with a 
15 binary digit accuracy* 

3e Calculation with integers 

If e ■■ 15 3 the (15*Q>e) numbers dealt with by the subroutine are binary 

integers:* '* 

4e Reawffli* for Ttiaeb^ne fltnpp»g* dur-fng the fmhrmrhtTi* 

a) Arithmetic overflow at 35r - overflow in a wtntm difference for the 
interpreted instructions ad ©r *u t 

b) Various alarms can result from trying to interpret an instruction whi®h 
was not meant to be interpreted by the subroutine® 

5© Overflow during mr 

It should be noted that overflows can occur during multiplication of 
(l5,0 f s) numbers* These will not cause an alarm since the overflow is 
shifted out of "the left hand end of tbe accumulates^ i*Wo^ the product i« 
f&fmB& modulo Z 

6o In any of the operations the address n may be the address of the mra 

7* The mra consists of register 2r (or 2ax)« 
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TITLEg Operations on real (15 s 5 c) fixed-point 
single register numbers ( Interpret ive) 



LSR# PA &lt 
TAPB# T 724-1 



Abstracts PA 8*1 is a (15^0^©) interpretive subroutine whieh performs 
the instructions ts^ td 5 ta 5 ex 5 cp^ sp 5 g& $ os 9 ad^ su $ ei% 
wr s si and sr e Exit and entry to the subroutine are aeeom~ 
plished by the instruction spax* In leaving the subroutine^ 
if C(m) - spax 5 then ordinary W or^eratlon is resumed at 
register m + 1* 

Preset Parameters g 

-sxLg M address in storage of the initial register of the 

storage block for (15 S S C) numbers o 
vx3i C where C is the number of binary digits to the left of 
the binary point 
H where H is the address in storage of the first register 
of the interpretive routine 



vx 



In tb.s description given below the subroutine is assumed to be executing 
the order C(m) ■ xxn 



46r 
46r 
46r 



46r 
32r 



46r 



00 ta 38r r Enter interpretive 

-._ _ ft \_ subroutine 

01 sp 38r 



;p 38r 



02 
-^03 



(po) 

jsr 18r 



» 04 (ca ax 
■^05 sp 34r 

06 sp 34r 

07 sp 34r 

08 cs 2r 

09 j5£ £7r 

10 sp 16r 

11 mh 2r "> 

12 slOaxS I mr 



5r^6r f 7r 
14r,15r 
26r,27r,£fc£ 
(21r)(39r) 




ta 

Transfer m+1 to 
of register n 



Perform ca^ es^ 
si , sr* ts» td< 




ad^ su# cm 5 
and ex 



Set up entry to table 
Pat C(m) in AG 



Is xxn^spax? 



(17r) 24 cpO 
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I TITLES Form sin J x from x Stored in AC, and 
Leave Result in AC 



LSR TFO.l t 



Classification 
Closed 



No, of Regs, 
in Subroutine 

19 



Temp, Regs, 
used by Sub. 

d - It 



Average Time 
(operations) 

15 



Max. Time 
(operations) 

15 



Program Parameters 

on entering Subroutine 

ac: x 

ar: return address 



Results 

on leaving Subroutine 



acs sin ~% x 



Description 

The subroutine gives sin % x » ax-bx 3 +ex s -dx 7 for 
~Kx<l. The subroutine is entered with x in the accumulator 
and on returning to the main program, sin -f/2 x is in the AC 
The maximum error is approximately +0 00005 and the average 
error is +0 C 00003. 



TITIEi Fori; sin - x from x Stored ia AG„ and Leave 



LSR# TF 0, 1 t 



-Result in AC a 

T3 5 7 
x *» ax°bx *cx °dx as a single 

length fixed point number in the accumulator where »Kx^.l, 

Entering the subroutines 
ac; x 

Leaving the subroutine* 
acs sin ^2 x 

Temporary Storage i 
d unused 
It used t© fjtore th@ value of x 



00 


ta 14r Set return address 


10 


sr *1 


(~bx 2 *ex^dx 6 )2 =1 


01 


ts It 


Store x 


11 


ad I8r 


fe-bx 2 *ex 4 '-dx 6 )2" 1 


02 


mh It 


2 

X 


12 


mh It 


(aa^^e^-da^te" 1 


03 


sh 15r 


»dx 


13 


si 1 


ax=>b>r*ex ==&x 


04 


ad I6r 


o - dx 2 


(Or) H 


9P (o) 


Return to main prqgrem 


05 


mh It 


ox - dx^ 


15 


1,77560 


«»Q 


06 


mh It 


ex 2 - dx* 


16 


0,05055 


c 


07 


ad 17r 


=>b*cx co dx 


17 


l a 26521 


c»0 


08 


mh It 


3 5 
«*bx * ex « dx 


18 


o 62210 


#%*1 
a x 2 


09 


mh It 


-bx * ex - dx 
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TITLE: Form cosinefy from y Stored in AC, and 
Leave Result In AC (15*0,0) 



LSR TF l.lt 



Tape m-i 

Classification 

Closed 



No. of Regs.) Temp. Regs, 
in subroutine used by Sub, 
26 I d -It (2) 



Average Time 
(operations) 
20 



Max, Time 
(operations) 
20 



Program Parameters 
on entering Subroutine 
aos y 
ar: Return address 



Results 
on leaving Subroutine 



ac: coslne^y 



Description 



M, 



Jives cosine xy by changing y to x so that 
cos^y ■ sln£x • ax -bx 9 +cx s -dx T , for -Kx<i. If y-0, there 
will be an overflow since the cosine of sero is one. The sub- 
routine is entered with y in the accumulator and on returning 
to the main program cosine j£y is in the accumulator. The 
maximum error is approximately 40.00003 and the average error 
+0.00002. 

Notes 

1. If y is +«ero, an arithmetic overflow will occur in register 5r< 



dhm>&ai — ranrn — res - 

1/1 V52 I 1/16/52 I 1/52/52 



TITLE i Forir ooeino fy ftrom y Starad in At * and LSft# TF 1 *lt 

Leave Result in AC (15,0 5 0) Tape 705-1 



tr. 



Abstract j Gives cosine «jjy by forming x a l«|y| ao that 



tr 



1T_ 



cosine -s-y ■ sine <»x and evaluating 

ft % tz 7 

sin «x 3 &x -bx + ex -dx , -Kx<l. If y=+0 
there will be an overflow at register 5r 



Upon entering the subroutine x 
act y 

Upon leaving the subroutine! 
act cosine *y 

Temporary registers: 
d - unused 
It - useel to store x 



2r 



00 
01 
02 
03 
-£04 
05 
06 
07 
08 
09 
10 
11 
12 



ta 19r 
ts It 

os It 

ad 20r 
ad 21 r 
ts It 
mh It 
mh 22r 
ad 23r 
mh It 
mh It 
ad 24r 



Set return address 
Transfer y to It 
y negative? Yes 



Add 2 



13 
14 
15 
16 
17 
18 
(0r)19 



Noo -y in ac 

(1 «2~ 15 ) «y 

-15 ~\ (Possible 
J overflow) 
1-lyl-x in it 

x 3 20 

-dx 2 21 

c -dx 22 

ox - dx 23 



2 4 
ox -dx 

«*b+ox -dx 



24 
25 



mh It 
mh It 
sr*l 
ad 25r 
mh It 
si 1 

sp(O) 

0,77777 

0*00001 

1.77560 

0*05055 

1*26521 

0.62210 



3 * 5 
-bx + ex -dx 

-bx +ox -dx 

(»bx 2 +ox 4 ^bc 6 )2" 1 

(a-bx 2 +cx 4 -dx 6 )2~\ 

(ax-bx 3 +cx 5 -dx 7 )2" i 

,3^ 5,7 
ax-bx +cx -dx 

Return to main program 

1-2- 15 

2" 15 

-d 

o 

-b 



a x 2 



-1 
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TITLE: Form Sine-gx from x Stored in AC, and/or 
Form Cosine £y from y Stored In AC, 
Leave Result In AC, (15*0,0) 



No, of Regs. 
in Subroutine 
28 



Temp, Regs, 
used by Sub, 
d - it 



Average Time 
(operations) 
15 - sine 
20 * cosine 



LSR TP 7.1 t 



Tape T 750*1 



Classification 
Closed 



Max. Time 
(operations) 
15 • sine 
20 - cosine 



Program Parameters 
on entering Subroutine 
ac: x or y 
ar: return address 



Results 
on leaving Subroutine 

ac: sine|x or cosine Jy 



Description 

If this subroutine is entered at register Or, it trill 
calculate cosine £y by changing y to x so that cosine £y - 
sine^x and evaluating slne£x • ax - bx*+ ex* - dx T , -1<x<1. 
If it Is entered at register 7r, it will calculate slnejx. 
There will be an overflow at register 5* if y - 0* The sub- 
routine is entered with either x or y in the accumulator, and 
on returning to the main program either sinefx or cosine J y 
is in the accumulator. The maximum error is approximately 
+0. 00005 and the average error is +0.00002. 

Notes: 

1. Enter at Or if cosine Jy is desired 
enter at 7r if sine£x is desired 

2, If y * +0, an overflow will occur in register 5r. 



DWN^DGA 



W III 
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vr 



riTLEs- P03M SDIE «g££ MOli x STOKED IN AC, AflD/OH 
FORM COSttJE ?y FROM y 3T<V3 D IN AC^ 
LEA^fe RESULT IN AC* (15 5 0,Q) 



LSH# TF 7dt 
Taps T 750-1 



Abstracts If this subroutine is entered at register Or, I 
will calculate cosine ^y by changing y to x so 

that cosine *y"'" sine tjX and evaluating sine 

tf "? 5 7 

«k « ax-bx +cx -dx , -Kx<l 9 If it is entered 

at register 7r, it will calculate sine >&o 

There will be an overflow at register 5r if 
y*0o 

Upon entering the subroutines 
ac» x or y 

Upon leaving the subroutine i 

act sine *x or cosine ^ye 

Temporary registers? 
d - unused 
It - used to store x 



Cosine— -» 00 ta 21r 

01 ts It 

02 op 4t 

03 cs It 
2r #» 04 ad 22r 

05 ad 23r 

06 sp 8r 



Set return address 
y in it 

Is y negative? Yes 
Noo -y in ao * 

(1 »2~ 15 ) -|y|in ac 

I i . Possible 
1 -|y| - x in ao ^^ 



14 
15 
16 
17 
18 
19 
20 



* 07 ta 21r Set return address (Qr)(7r) 21 

22 
23 



Sine — — 

6r * 08 ts It 

09 mh It 

10 mh 24r 

11 ad 25r 

12 mh It 

13 mh It 



x in It 

2 



rdx 
c -dx 
ox -dx 

ex -dx 



24 
25 
26 
27 



ad 26r -*>+ox -dx 

mh It »bx + ox «dx 

mh It -bx 2 ♦ cx 4 -dx 6 

sr* 1 (-bx 2 +cx 4 -dx 6 )2 CTl 

ad 27r (a -tox 2 +ox 4 -dx 6 )2~* 

mh It (ax -bx 3 +ox 5 dx 7 )2" 1 

3 5 7 

si 1 ax -bx +ox - dx 

sp (0) Return to main program 

o 77777 1 -2" 15 

0,00001 2 

lo77560 -d 

0o 05055 o 

lo 26521 -b 



0*62210 



a x 2 



-1 



